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AS-1000 

o micro que cresce com voce. 



AS 



-lOO 



CARACTERISTICAS TECNIC AS. 
16 K bytes de memoria Iniciais 

• Expansao interna para 32 e 
46 K bytes 

• 8 K bytes de memoria EPROM 

• Microprocessador Z-80A 



e membrana com 
acao mecanica posltlva 

• 40 teclas e 154 funcoes 

Basic e llnguagem de maquina 
- Video normal ou reverse 

• Saida para qualquer impressora 

• Manlpula ate quatro cassetes 
com geracao de arqulvo 

• Modem 

• Joystick 
File 

_ nte de allmentacao 
embutlda (110/220 volts) 

• Ni vel de leltura de gravacao 
automatlco 



O Microcomputador AS-IOOO 
e uma otima escolha para quern esta 
iniciando na ciencia da computacao. Seus 
recursos de programacao e sua concepcao 
modular, porem, permitem que ele 
o acompanhe ate as aplicacoes mais 
sofisticadas. 

O AS-1000 ja nasce com uma biblioteca de 
milhares de programas para jogos, 
administracao domestica, aplicacoes 
comerciais e prof issionais. 

O AS-1000 e fabricado com a qualidade 
ENGEBRAS e garantido por um ana 

Entre na era da informatica com a escolha 
certa. AS-1000, o seu micro pessoal. 

Escreva-nos. sua correspondencia nao ficara scm resposta. 

[ ENGEBRAS 

J ELtTRONICA F INrORMATICA I TOA. 

Rua do Russel. 450 - 3.° andar 
cep 22210 Rio de Janeiro - RJ 
Tel.: (021) 205-4898 
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emile as guias para recolhimenlo de impostos e encargos sociais. 
tudo com muita economia de custo e nenhuma chance de erro 

Como voce ve, o Cobra 305 nao faz milagres Ele apenas permite 
que voce lenha inlormacoes atuahzadas o tempo todo e possa 
lomar suas decisoes com mais segurarxja. 

Se voce lambem quer sair da crise pela porta da frente, contate a 
C()l)r;H.'assistaaumad«;monslragao do Cobra 305,OflifaO 
prolissional 
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Cobra 305 



micro 
profissional. 




Em "1984", Orwell fezmuitos 
acertos no atacado e alguns erros no 
varejo. Na parte que nos toca, por 
exemplo. A informatica n2o se 
transformou em um instrumento de 
opresscio ao homem conforme Orwell 
previa no seu livro "19847 justamente 
porque o acesso a ela foi franquiado - e 
continua sendo - a um numero cada 
vez maior de pessoas. Se tivesse ficado 
em poucas m3os, talvez a historia fosse 
realmente outra. 

Mas hoje, um microcomputador e 
um Instrumento que ajuda voce a viver 
melhor, com informacdes e servicos 
cada vez mais rapidos e eficientes. 
Ajudando, em parte, a contradizer 
algumas das previs5es de George 
Orwell, a CompuShop - a loja 
especializada em solucSes que tern 
tudo em materia de hardware, software 
e treinamento para melhor orientar o 
usuario - fica tranquila e mais a vontade 
para desejar um feliz 1984 para todo 
mundo. 

CompuShop 

Presente nos melhores a nos. 

SAO PAULO: Rua Dr. Mario Ferraz. 37 - Tel.: (011) 81^0099 
Av. Pres. Juscelino Kubitschek, 889 - Tel.: (01 1 ) 852-7700 

Telex: (011)36611 BYTE BR 
LONDRINA: Av. Higienopdis. 465 Tel.: (0432)23-7110 

Ate 31.03.84 voce ganha gratuitamente um 
exemplar do livro "1984" de George Orwell em 
todas as compras acima de CrS 300.000,00. 
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*} Q COPSYS — Como diz o 
teO ditado, "seguro morreu de 
velho". Produzir programas 
em linguagem de maquina, 
gravados em fita cassete 
no formato SYSTEM, e o que faz 
este utilitario, escrito por 
Daniel Augusto Martins para os 
micros da linha TRS-80. 

'I'l OS PEQUENOS 
&£ NOTAVEIS — A familia 
brasileira Sinclair em destaque: 
as caracteristicas tecnicas, os 
perifericos, o software, 
as limitacoes, a visao dos 
usuarios, enfim, um panorama 
geral sobre a linha. E mais: 
uma tabela com precos e 
principals especificacoes de 
todos os Sinclair nacionais. 
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A S INTELIGENC1A 

*±U ARTIFICIAL — I - O que 

se passa na cabega de um 
computador quando ele se ve 
desafiado a veneer a inteligencia 
humana? Neste artigo, Antonio 
Costa e Cristina Bovo mostram 
a importancia da programacao 
de jogos para o desenvolvimento 
da Inteligencia Artificial. 

7^ CALCULO DOS 
/ Z. ESFORCOS E 
ARMADURA DE LAJES — 

Um exemplo tipico de aplicacao 
do microcomputador na area 
de Engenharia Civil. Osvaldo 
Scorcio Pereira utilizou o 
Metodo da Ruptura para 
desenvolver este programa para 
os compativeis com o TRS-80. 
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VIGAS CONTINUAS: AUTOMATIZE OS 
CALCULOS — Programa de Alexandre 
Domingues Campos. 

O ASSEMBLER, PASSO A PASSO — 

Programa de Gerson Bianco Alonso. 

ARQUIVOS PROTEGIDOS — Artigo de 
Roberto Tannenbaum. 

UM POCKET-PROGRAMA DE VIGAS 
CONTINUAS — Programa de 
Edison Waetge Junior. 

RESOLUCAO DE TRELICAS 
HIPERESTATICAS — Programa de Fermin 
Jimenez Murillo. 

O ULTIMO A SAIR APAGUE O MICRO 

— Artigo de Evandro Mascarenhas 
de Oliveira. 



>£ -1 PROSYS — Programa de Esdras Avelino 



Leitao. 



(:*% PROGRAMA QUE ARQUIVA 



PROGRAMAS — Programa de Lawrence 
F. King. 



f-(l UM METODO FACIL DE PROGRAMAR 
OO PROMS — Artigo de Celso Henrique 
Ribeiro e Felicio Barbosa Monteiro. 

-]£L LAJES ARMADAS EM CRUZ - Programa 



de Celso de Arruda Albuquerque. 
78 CURSO DE ASSEMBLER — XIII 

84 



CALCULO DA AREA DE GLEBAS — 

Programa de Laci Mota Alves. 
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Emuito estimulante quando nos 
deparamos com um produto 
bem-acabado. Entenda-se por 
is to ndo somen te os aspectos 
externos ou mais gerais, mas sobretudo 
um con junto de ideias e realizacoes - 
que vdo desde a concepcdo a execucdo 
do projeto - felizes e, desde o berco, des- 
tinadas ao sucesso, posto que o consu- 
midor pode demorar a se convencer do 
fracasso de determinado item, mas aeon- 
sagracdo do bom produto e imediata. 

Na area da microinformdtica, pelo 
amplo acesso que seu baixo custo e boa 
performance propiciaram a um universo 
antes limitado, merece votos de louvor 
o pequeno equipamento de logica Sin- 
clair. 

Relator nossa experiencia com os 
equipamentos da linfia Sinclair e, de cer- 
to modo, contar a propria historia do 
CPD da MICRO SISTEMAS. Eles foram 
os primeiros equipamentos a chegar e a 
industria sempre nos deu um grande 
apoio nesta area. 

Apesar disto, informacoes tecnicas e 
experiencia na utilizacdo foram por nos 
obtidas com muito trabalho e dificulda- 
de. 

Hoje contamos com as mdquinas 
mais significativas deste segmento de 
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mercado, que coexist em pacificamente 
com equipamentos ditos de "linhagem 
mais nobre". Esta discriminacdo, alias, 
e uma caracteristica bem marcante dessa 
linfta de equipamentos: todo ndo-usud- 
rio de micros Sinclair tende a considerar 
essas mdquinas como brinquedos, o que 
e um equivoco pois, justamente ao 
con t ratio, esses computadores ndo sdo 
nada bons para jogos. Sdo lentos, pos- 
suem poucos recursos de video e tern 
uma organizacdo de memoria que es- 
banja o espaco da RAM. 

No entanto, esses equipamentos se- 
guiram no Brasil a mesma trilha do 
sucesso que jd os elevara a categoria fe- 
nomeno' em outros poises. Is to porque 
possuem um preco relativamente baixo 
e seu BASIC e de uma simplicidade 
fantdstica sem, contudo, perder em ter- 
mos de potencia para seus parentes maio- 
res. 

Hoje, decorridos dots anos do lanca- 
m'ento dessas mdquinas no mercado na- 
tional, podemos fazer um balanco de 
como se comportam os primos tropi- 
cus do ZX 81. £ esta a proposta da ma- 
teria 'Pequenos Notdveis ', veiculada nes- 
ta edicdo. Vale a leitura. 

Mas ndo e so essa linlia que apresen- 
ta uma dindmica estimulante. Os equi- 



pamentos da linha Apple, alem d^ se 
proliferarem com velocidade ate ques 
tiondvel, refletem a busca de seus fa- 
bricantes por um ponto de maturacdo. 
Ainda no mes passado, um dos mais des- 
tacados fabricantes da area reuniu, com 
o apoio de uma cadeia de lojas carioca, 
usudrios e imprensa especializada para 
um debate sobre as carencias e recla- 
macoes do mercado. 

Uma boa iniciativa que nada tern de 
condescendente ou humanitdria. £ uma 
estrategia comercial das mais sdbias, 
uma vez que somen te atraves do ques- 
tionamento e trabalho de seus pontos fra- 
cos os fabricantes conseguirdo ter suces- 
so em passar numa peneira jd bastante 
congestionada, onde se engalfinham 
quinze modelos "compativeis" com a 
referida macd. A entrada da traditional 
empresa CCE no mercado de fabricacdo 
de Apple (veja na secdo Bits) demonstra 
que jd cada vez mais se comprime o 
espaco para amadorismos. A triagem co- 
mecou. 
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RIIMGO R 470 CHEGOU A CIDADE. 
OS OUTROS MICROS QUE SE CUIDEM. 
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microcomputador Ringo R-470 6, disparado, o melhor em sua categoria E mais rapido na execucao de programas, oferece amplas possibilidades de 
expansao e 6 o unico micro totalmente projetado e desenvolvido no Brasil, aprovado pela SEI - Secretaria Especial de Informatica 
Urn verdadeiro heroi nacional. 

Voce 1 pode contar com ele para resolver problemas pessoais ou prof issionais, ou simplesmente para se divertir, atrav6s de virios ioqos disponiveis em 
cartucnos ou fitas. 

Alias, cartucho 6" o que nao falta para o Ringo. Ele 6 compativel com todos os programas do famoso Sinclair e possui equipamentos perife" ricos 
exclusivos que ampliam muito a sua capacidade. 

Compare o Ringo R-470 com os similares e comprove: nunca apareceu urn micro pessoal tao prof issional por estas redondezas. 



CARACTERISTICAS TECNtCAS: 

• Linguagem Baste e codigos de mAquinaZ-80 

• 8 KBytes ROM expandivel para 16 K Bytes 

• 16 KBytes RAM expandivel para 46 K Bytes 

• Utilizavel em qualquer TV PiB oo cores 

• Conector para Joystick (jogos) 

• Teclado tipo QWERTY com 49 teclas e 155 functes • teclas de edicao 
(movimentacJo de cursor e correcao) com repeticao auttmatica 

• Exclusiva lecla de inversao de video 

• Tela com 24 linhas de 32 colunas para texto 



• Resolucaogrifica 64x4-'. pixels (unidadegrafica), podendoatingiruma 
matnz de 256 x 192 quando utilizado com cartucnos 

• Calculos aritrneticos, funcoes tngonometneas, logaritmicas e Idgicas 

• Cartuchos "Instant Soft" (programas aplicativos em ROM • exclusivo) 

• Velocidade de gravacao em Ma cassete 2.400 BPS 

EXPANSOES: 

• Gravador de EPR0M para gravar, editar e copiar programas em cartucho 

• Interface para impressora ou maquina de escrever el6trica 
•Sintetizadordesons 

• MODEM (Comunicacao telefdnica • 1.200 Bauds) 

• Pmco iu|*llo ■ aitaracto 



A venda nas lojas especial izadas em micros, 
foto-video-som e grandes magazines. 
Nao encontrando o Ringo nestes locais, ligue para 
217.8400 |SP) ou (01 1) 800.8441 e 800.8442 (Outras 
localidadesdo Brasil). DDD gratuito. 

RINGO 

micro que aceita desafios. 

Ritas do Brasil Ltda. • Divisao Informatica 
Telex (01 1)34673 Rita BR 







Enxadnsta expenente. Luciano Nilo de An 
drade j4 escreveu para os jornais "Correio da 
Manhi", "Data News" e "Ultima Hora" e pa 
ra arevista "Fatos & Fotos" Luciano t econo 
mista. trabalhando no Mmisttrio da Farenda. 
no Rio de Janeiro As opimbes e comentinos 
de Luciano Nilo de Andrade, bem como as 
ultimas novidades do Xadrez jogado por com- 
putadores. estarao sempre presentes em 
MICRO SISTEMAS 



Grand-Master, a maravilha do ano 



No ultimo trimestre de 1983, sur- 
giu nos mercados norte-america- 
no e europeu urn sensacional mi- 
cro, o Grand-Master. Seu inedito dispo- 
sitivo magnetico permite mover suas 
pecas magneticamente! 

Adeus a macada de arrumar as pecas 
no ini'cio de cada partida! Adeus, tam- 
Wm, a necessidade de mover as pecas na 
vez do micro fazer a jogada (alias, a exe- 
cucao dessa tarefa manual sempre teve o 
efeito de desviar a atencao do jogador 
do desenrolar da partida). 

Munido com seus 12 nfveis de forca, 
o novo micro nao humilhara" o ego de 
seus opositores humanos. Ele 6 jogador 
condescendente e paciente. Deixa voltar 
as pecas e ainda opina sobre qual a me- 
Ihor jogada quando interrrogado. 

Acima de tudo, ele tern uma virtude 
muito importante, as vezes esquecida 
por alguns jogadores: a de nao fazer ges- 
tos atabalhoados com as pecas, nao 
tamborilar com os dedos ou pecas na 
mesa, etc., com o intuito de distrair o 
adversario. Por sua vez, e condicao ne- 
cessaria para jogar com ele que seus 
adversanos movam as pecas com cuida- 
do. Enf im, e um gentleman que exige re- 
ciprocidade. 

ELITE A/S: CAMPE AO MUNDIAL 

Elite A/S, fabricado pela Fidelity 
Electronics, venceu o III Campeonato 
Mundial de Micros (modelos comerciali- 
zados) realizado em Budapeste, Hungria, 
no perfodo de 13 a 19 de outubro de 
1983. Desconhece-se ate agora que mar- 
cas competiram e demais informacoes 
pertinentes: 

Com este resultado, a Fidelity recu- 
perou a primazia perdida no ano passa- 
do para o Constelation, face aos resulta- 
dos por este obtidos no torneio aberto 
dosE.U.A.em 1982. 

Anteriormente, a Fidelity havia ga- 
nho o Champion Sensory Challenger, o I 

MICRO SISTEMAS, fevereiro/84 



Campeonato Mundial realizado em Lon- 
dres, em 1980. II Campeonato Mun- 
dial, a Fidelity venceu com o modelo 
Prestige em Travemunde, Alemanha, em 
1981. 

Os tres primeiros colocados no tor- 
neio de Budapeste estao convidados a 
participar do campeonato mundial de 
computadores (macros) a ser realizado 
em Nova lorque, no final de outubro. 

G. Game Machine (Steinitz) x Elite A/S 

Nfvel 2—15 segs. para cada jogada 

Rio, dezembro de 1983 

1 - P4R P4BD; 2 - C3BR P3R; 3- 
C3BD P4D; 4 - PxP PxP; 5 - P4D 
PxP; 6 - CxP C3BD; 7 - B5CD CR-2R; 
8 - B5C P3B; 9 - B4BR P3TD; 10 - 
B2R C3C; 11 - CxC PxC; 12 - B3R 
T1CD; 13 -P3CD B5CD; 14 - D4D (?). 
Perdem uma peca. Era necessario jogar 
14 - B2D. 14 - . . . P4B; 15 - D2D (?). 
Novo erro grave. 15 — . . . P5D; 16 — 
BxPD PxB; 17 - B3B BxC; 18 - DxB 
D2R+; 19 - R2D PxD+; 20 - RxP 



D4R+; 21 - R4B B3R+; 22 - B5D e o 
Elite anunciou mate em quatro jogadas. 
22 - . . . DxB+; 23 - R3B D4R+; 24 - 
R2D DxT++. As brancas gastaram 6 
min. e 43 segs., e as pretas 5 min. e 24 
segs. 

Elite A/S x G. Game Machine (Steinitz) 

Nfvel 1—5 segs. para cada jogada 

Rio, dezembro de 1983 

1 - P4R P4BD; 2 - C3BR C3BD; 
3 - P4D PxP; 4 - CxP P3R; 5 - C3BD 
P3TD; 6 - P3CR B5C; 7 - CxC BxC+; 
8 - PxB PCxC ( ? ). Jogada que permite 
a incursao da dama branca com efeito 
paralisante sobre o jogo das pretas. 
indicado era 8 — . . . PDxC, preparando- 
se para a fase final que Ihes e favorSvel 
por terem melhor cadeia de pedes. 9 — 
D6DI C3B; 10 - B3D B2C; 11 - T1CD 
T1CD; 12 - B4BR P3TR; 13 - 
DxT DxD; 14 - BxD B1B; 15 - B6D 
P4TD. Elite anuncia mate em tres. 
17 - T8C R1D; 18 - B6T CxP; 19 - 
TxB++. 



R. Szmetan x Gheorghiu 
Bienne, 1982 



PROBLEMAS 



Corrigan x Browne 
Paris, 1980 
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Diagrama A -As brancas 
jogam e ganham. 



Diagrama B - As pretas jo- 
gam e ganham. As brancas 
pensam deter o mate de- 
pais de C6B+ com BxC se- 
guido de D4R. Certo ou 
errado? 




DIAGRAMA A 



Solucoes 



DIAGRAMA B 
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O sorteado deste mes, que recebera 
gratuitamente uma assinatura de um ano 
de MICRO SISTEM AS, e Rogerio G. 
Ferraro, de Sao Paulo. 
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MAXXI COM COR 



Apos ter lido a carta da Polymax enviada 
por V. Sa., constatei que o mesmo ajuste re- 
ferenciado na carta me havia sido informado 
pela Polymax por telefone em consulta efe- 
tuada tempos atras. 

Apos a abertura da parte superior do 
Maxxi, notei o seguinte: 

1 . Estava conectado apenas um terminal do 
resistor de 1 K na placa principal e o outro 
ligado a um fio que vai para a parte de baixo 
da placa principal. Obs. : liguei os dois termi- 
nals do resistor na placa. 

2. O capacitor variavel, referenciado no 
item 7 da carta, encontrava-se um pouco da- 
nificado. Efetuei ajustes mas nao saiu cor. 
Troquei este capacitor por um novo e 
efetuei novamente ajustes, onde verifiquei o 
aparecimento das cores: verde, azul e suas 
derivadas no sistema Pal-M, e verde, azul, 
vermelha e suas derivadas no sistema NTSC. 
Concluf que o problema residia no defeito 
do capacitor e na ligacao do resistor. 

Convem ressaltar que quando adquiri o 
microcomputador e observei o problema, eu 
o devolvi para a loja, que ficou com ele cer- 
ca de uma semana "tentando repar^-lo". 
Creio que a loja, na tentativa de sanar o pro- 
blema, tenha danificado o capacitor e nao 
tenha ligado o resistor de 1 K conforme de- 
veria, ou entao o capacitor tenha se danifi- 
cado no transporte. 

A troca do capacitor, conforme citei, foi 
feita ap6s o recebimento de sua carta. Havia 
notado um pequeno dano no capacitor apos 
receber o micro da loja, porem nao o tro- 
quei antes porque pensei que isto na*o iria 
alterar suas caracterfsticas. 

Considerando o problema ocorrido, creio 
que seria interessante a Polymax ter nesta ci- 
dade um representante com capacitacao tec- 
nica para resolver este tipo de problema, 
pois ha, aqui em Campo Grande, outras 
pessoas que possuem este tipo de microcom- 
putador. 

Nabor dos Santos 
Campo Grande — MS 

Agradecemos por nos ter notiftcado so- 
bre o andamento do seu problema, e fica- 
mos contentes em saber que pudemos ajudar 
a resolvS-lo. Vamos torcer para que a Poly- 
max atenda seu pedido e coloque represen- 
tacao tecnica em sua cidade. 
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SICOM 
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Quando se interrompe e se reinicia a 
execucao do programa SICOM da Micro- 
Soft, perdem-se dois bytes da mem6ria livre. 
Por que e como isso acontece? £ interessan- 
te a interrupcao com o objetivo de modifi- 
car o lay-out dos menus para adapta-los a 
aplicacoes especfficas, e tamWm para corri- 
gir um erro elementar desse programa que, 
sob todos os outros aspectos, e excelente. 

O menu secundario apresentado ap6s o 
comando "0" do menu principal (insira) so- 



licita os dados na seguinte ordem: N-A-l-T 
("nome", "endereco", "codigos uteis" e 
"outro texto"). No entanto, os menus se- 
cundarios apresentados ap6s os comandos 
'1' (altera) e '3' (busque) solicitam os da- 
dos na ordem N-A-T-l e, o que e pior, cor- 
respondendo a "nome", "endereco", "tex- 
to" e "interesse". £ um erro de facflima cor- 
recao mas, se nab for corrigido, torna o pro- 
grama "torto" e menos agradavel de utilizer. 
Carlos Malf errari 
Sao Paulo - SP 

Remetemoj as suas indagacoes para a 
Multisoft, ex-MicroSoft, e esta nos respon- 
deu o seguinte: 

"Com referenda a carta de vosao leitor, 
temos a informar que o problema apresenta- 
do refere-se a caracterfstica de operacao do 
BASIC do computador. A drferenca de dois 
bytes deve-se a forma como foi interrompi- 
do e reiniciado o programa. Quando, no 
SICOM, e apresentado o menu, o programa 
esta em uma sub-rotina, o que acrescenta 
dois bytes ao stack, se a tecla BREAK for 
pressionada e o retorno a operacao for feito 
por GOTO, a mem6ria permanece acrescida. 
Uma solucao para recuperar estes dois bytes 
e retornar a execucao atraves da instrucao 
RETURN, entrando "9" em seguida para 
obter novamente o menu." 
Paulo Rodrigues Lauand 
Diretor da MultiSoft 
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ESCLARECIMENTO 
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Com relacao a materia publicada em MS 
n? 27 (dezembro de 83), intitulada "Lojas 
de microcomputadores", temos a esdarecer 
que a loja Microshop — Comercio de Apare- 
Ihos Eletronicos Ltda., estabelecida em Mi- 
nas Gerais, nfio tern nenhum vinculo com a 
Microshop Microcomputadores Ltda., nossa 
emprasa situada em SSo Paulo. 
Max Ribeiro - Microshop Microcomputado- 
res Ltda. 



c 



ELETR6NICANAHP 
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Gostaria de esdarecer alguns pontos a 
a respeito do meu artigo "Eletrdnica na HP- 
41 C" (publicado em MS n° 22) ao leitor 
Nelson M. da Silva, que muito prestativa- 
mente sugeriu modificacdes no programa, na 
Secao Cartas de MS n° 25. Gostaria de in-- 
forma' ao amigo leitor que as modificacoes 
por ele sugeridas coincidentemente fizeram 
parte do programa quando de sua concep- 
cao, cabendo entao a mim esdarecer por 
que achei melhor modific4-1o tendo em vista 
sua divulgacao. 

O fato 6 que os registradores 00 a 04 tern 
que ser zerados entre uma operacao e outra. 
senao a maquina pode fazer uso, numa atual 
operacao, de um dado da conta anterior. As 
modificacdes sugeridas ficam assim invalida- 
das. por duas razdes: a primeira e que dei- 
xam de cumprir a sua funcao precipua, pois 
estao localizadas em um ponto onde serao 
executadas uma unica vez, e nao antes de ca- 
da operacao, e a segunda e que elas utilizam 
dois registradores a mais de memoria em re- 
lacao a sugestao do artigo, que e a de usu- 
fruir a praticidade da funcao ASSIGN da 
maquina. 

Reconheco que talvez este item especffi- 
co tenha sido um tanto "imposto" no artigo 
sem maiores explicacoes, e me coloco a dis- 
posicao do amigo leitor para eventuais escla- 
recimentos, na"o deixando, ainda, de agrade- 
cer a sua elogiosa intervencao. 
Pedro Ricardo Drummond 
Sao Paulo-SP 



Quero parabeniza-los pelo excelente n I'- 
ve! da revista MICRO SISTEMAS, que 
muito me tern auxiliado, principalmente em 
minhas atividades estudantis. A cada nume- 
ro da revista f ico mais surpreso com a quan- 
tidade de informacdes que consigo reter dos 
preciosos artigos publicados. 

Leio a revista de ponta a ponta, e as 
Secdes que mais aprecio sa"o: Dicas, Sidra, 
materias tecnicas, programas em geral e MS 
Responde. Com tudo isso, estou aprendendo 
e aproveitando ao maximo. 
Marcos Teixeira 
Americana — SP 

Muito me agradou ver MS publicar o 
artigo "O micro entre os astros do zodiaco", 
de autoria de Luiz Roberto Barboza de 01 i- 
veira. Como e citado no artigo, a Astrologia 
vem ganhando cada vez mais espaco em nos- 
sa vida diaria (. . .), nao a Astrologia folcl6ri- 
ca baseada no signo solar, mas sim a cientf- 
fica, que utiliza calculos exatos a partir do 
hor^rio e local de nascimento. 

(...) Com rapidez de cdlculo, 6tima pre- 
cisao e confiabilidade o computador vem, 
cada vez mais, entrando no cotidiano do as- 
tr6logo. Parabens, MS. 
Alexandre Fucher 
Sao Paulo - SP 
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CALCULO DE VIGAS 
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Gostaria que me dessem informapdes 
mais completas sobre o programa "Calculo 
de vigas contfnuas para a HP-41 CV", publi- 
cado em MS n9 20, do autor Claudio Luiz 
Curotto. 

Luiz Alberto Silva 
Niter6i - RJ 

Remetemos sua carta para o autor do 
artigo, publicado na Secao Conversao de MS 
n° 20 (alias, o professor Claudio Curotto 
tambem e o autor do artigo que originou a 
conversao e que saiu em MS n° 14 com o 
tftulo "Calculo de vigas contfnuas na Tl- 
59"). Ele nos respondeu o seguinte: 

"Recebi algumas cartas sobre estes arti- 
gos (para a Tl 59 e para a HP-41CV) e vou 
tenter responder a todas: 

Com relacao ao programa para a TI-59, 
esse programa vem sendo usado desde 1979 
sem apresentar nenhum problema. O artigo 
e a listagem publicados em MS estao corre- 
tos. Assim, quaiquer problema que esteja 
ocorrendo deve-se a erros de impostacao do 
programa ou a problemas com calculadora. 
O erro mais comum e a troca da tecla I 
(codigo 55)pela tecla ♦ (codigo 85). Esse er- 
ro pode ser evitado conferindo-se o progra- 
ma pelo codigo das tec las. 

Quanto ao programa' publicado em MS 
n° 20 para a HP-41CV, tambem vem sendo 
usado ha quase dois anos sem apresentar 
nenhum problema. O artigo e a listagem pu- 
blicados em MS estao corratos, a nao ser por 
um erro insignificantede impressao. Esse erro 
esta na lista dos resultados: em vez de 
Qe 4,526 como saiu impresso, o resulted o 
corrato e Qe 4,528. Imagino que esea erro 
nao tenha suscitado duvidai a quern o cons- 
tat ou. 

Acred ito que dois fatos devem estar 
criando problemas a quern vem tentando 
utilizar o programa: o primeiro A ralativo a 
notacao utilizada por mim na rapresentacio 
de cadeias de caracteras "ALPHA", e o se- 
gundo refere-se as funcdes que nao apare- 
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cem no teclado e que sio usadas pelo pro- 
grama. 

Na 1 1 st age m do programs, uma cadeia de 
carac teres aparece entre apostrofos, mas no 
visor da HP-41CV a mesma aparece precedi- 
da pelo sfmbolo T . Essa notacao foi utili- 
zada para representar os espacos em branco 
existente* no fim de algumas cadeiat de 
carac teres utilizadas no programa. Por exem- 
pto, a linha 253 do programa aparece na lis- 
tagem como: 
253 Me' 

Essa linha e impostada pelo pressionamento 
das seguintes teclas: 



[ALPHA! | SHIFT | [I] | SPACE 



ALPHA 



No visor entao aparecera: 
253 T Me 

As funcoes que nao aparecem no teclado 
da HP sao murtas e para que o usuario im- 
poste essas funcoes num programa, ou as 
utilize diretamente, ele deve seguir as instru- 
cts contidas no manual da cakuladora. Ve- 
jamos as linhas 67 e 155 da listagem do pro- 
grama para mais um exemplo: 
67 x 1 0? 
155 x < > 05 

Para impostar estas linhas, o usuario devera 
pressionar as seguintes sequencias de teclas: 



XEQ 



linha 67: 
(h) I SHIFT 



ALPHA 



SPACE 



[x) [shift] 

[?] lALPHAl 

linha 155: |X1Q| 1 ALPHA \ [x] [SHIFTJ 

IT] jSHIFTl [ALPHAl \b\ 

Acred ito que com estas instrucoes todos 
poderao resolver seus problemas. E coloco- 
me a dispostcao para eventuais consultas." 
Prof. Claud io Luiz Curotto 
Vicosa - MG 
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Adquiri um JR da Sysdata, com 48 
Kbytes, e gostaria de saber como proceder 
para ter certeza de que o mesmo possui 
Extended BASIC, pois todas as vezes que 
tentei rodar um dos exemplos das folhaiE-1 
e E-15 do manual, o micro indicou erro no 
cod. L3. 

Eu comprei o aparelho como tendo a re 
ferida expansao. Sera que estou cometendo 
algum erro? Outra coisa que gostaria de sa- 
ber e sobre a possibilidade, segundo o ma- 
nual, do desligamento de todo o conjunto 
de memoria ROM mediante comando exter- 
no, permitindo, desta forma, o uso de cartu- 
chos externos com programas residentes em 
ROM (EPROM), com o Atari e outros. 
Como e possfvel isto e aonde obter informa- 
coes? Alias, telegrafei para a Sysdata e a fa- 
brica ainda na"o me respondeu. Considero 
isto um desrespeito ao usuario. (. . .). 
Paulo Fernando Vieira 
Guafba - RS 

Remetemos a sua carta para a Sysdata, 
mas infelizmente foi parar no antigo endere- 
co da empresa (a Sysdata agora esta na Av. 
Pacaembu, 788, Sio Paulo). Alem ditto, 
Paulo, o telegrama que voce mandou para a 
Sysdata, segundo a empresa, nao continha 
seu endereco, estando assim explicada a de- 
mora em voc# receber sua resposta, que 
agora publicamos: 

"Para verificar se o aparelho contem a 
versao Extended BASIC, basta, ao .liga-lo. 



teclar "ENTER" como resposta a mensagem 
que surge na tela: SYSDATA -?. Se apare- 
cer no video a mensagem "JR EXTENDED 
BASIC, READY, > ", entao o aparelho esta 
dotado dessa facilidade. Caso contrario, se 
aparecer somente "READY E > ", nao hi o 
Extended BASIC. 

Pode-se, tambem, tentar utilizer uma das 
'funcoes do Extended, que o computador 
nao aceitara se nao estiver equipado com 
essa linguagem. Verifique, alternativamente, 
o numero de serie na embalagem ou sob o 
gabinete, pois os modelos com o Extended 
tern a letra "E" no c6digo. Ainda sobre o 
Extended BASIC, se a versao for 2.1 (nesse 
caso, na mensagem do vfdeo aparecera "JR 
EXTENDED BASIC V 2 1"), ha uma alter, 
cao para o comando de desligamento da lin- 
guagem refertdo nas paginas A-5, E-0 e E-2 
do manual, pois, ao invesdo comando CMD 
"B", "OFF", (versdei anteriores), foi adota- 
da a forma simplif icada CMD "OFF" (e para 
ligareCMD "ON"). 

Quart to ao desligamento do conjunto de 
membria ROM referido no manual, ja existe 
implementacao no hardware, mas a empresa 
ainda nao esta comercializando a interface 
para receber os referidos cartuchos. (. . .)." 
Luiz Clayton Pellini 
Depto. de Apoio ao Usuario da Sysdata 
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Peco que haja maior esforco no sentido 
de minimizar cada vez mais a utilizacao de 
linguagem tecnica (...). E como isso pode ser 
feito? Atraves de exemplos comparativos, 
analogias. generalidades etc. 
Alberto Eduardo A. Goncalves 
Rio de Janeiro-RJ 

Gostaria mos de parabaniza-los pela edicao 
de novembro de MICRO SISTEMAS, onde 
tivemos um artigo bem util sobre orientacao 
de antenas. Aproveitamos a oportunidade 
para sugerir a publicacab de algo sobre pro- 
gramacao para calculos das 6rbitas dos satel- 
lites para uso de radioamadores. 
Joao Henrique de Mattos (PY4BHB) 
Varginha — MG 

(. . .)Tenho duas sugestoes: queria que 
voces acrescentassem mais jogos para o 
TK82-C e, assim como hd em MICRO SIS- 
TEMAS cursos de programacao, seria inte- 
ressante se houvesse curso na area de hard- 
ware. 

Rogerio G. Ferraro 
Sao Paulo-SP 

Gostaria de sugerir algumas materias para 
serem eventualmente publicadas: 

- Meios de acesso as linguagens de maquina 
dos microcomputadores prof issionais (Cobra 
305, Siscoetc); 

- O Z-80 tamWm poderia ser desvendado; 

- Sobre banco de dados, o futuro da Infor- 
matica; 

- Fluxogrames dos programas publicados, 
pois assim poder Tamos adapta-los a outras 
linguagens facilmente; 

- O sistema MUMPS. 
JIMO 

Serra Negra-SP 

Gostaria que a revista abordasse um pou- 
co mais o hardware para os micros pessoais. 
Eduardo Freitas 
SSo Paulo-SP 

Envie suas sugestoes para 
MICRO SISTEMAS. Elas serao anotadas em 
nossa pauta e procuraremos, na medida 
do possfvel, viabiliza-las. 
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TODA A LINHA 

DE MICROS E 

MINICOMPUTADORES 



A informacao nas pontas dos seus dedos 



Gerenciador de 
banco de dados 

03^ 



StstBrTMtt OpMMlDMlK 
MS-OOS (BM-PC) CP/ 
M CP/M-86 CROMIX 
COOS MP/M MP/M-86 

: I Cursor enderecavel 
para o uso de furtQOM 
fullscreen. 



Automacao 
de escntonos 



S 



Requerimentos do 

Sistema: 
(MtcroprocessaoorM 8080. 
8085. Z80. 8086. 8088) 
64K p CP M; 128K p CP 
M-86 e MS-DOS: S6K p 
Apple II 

2 Disketes c minmo de 
126Kcada 

Terminal c 80 colunas e 
cursor enoelecavel 
Impressora com no mint- 
mo 80 colunas. 



Otamac (gene 8.100) Mcrodtoftal (TK'e 83 85 2000) 
CP-s 200 300 500. I m pre— oree , elefxa. e»gin, (Menwc 
IMcraenganho I e I e Apple-Tronic 



OMCOS Megneo co e. 5MB, 16MB. 80MB. etc. 

OMAanes 5 1/4 ' 8 ' aimpaee e duple taoee 

ettqutm fvtviM irmnm) 

Fitn Mep n edce. 600. 1200 e 2400 Pee 

FKm p/lwpreeeo n n. etebra. digiieb. diebto. oentronic. 

eke. 

Cartucnoe Cobra 400 



End. Rua da Lapa. 180 gr 1007 1008 — CEP 
20021 — Rio de Janeiro — Tel.: (021) 221-3069 
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De indigesto almoQO, os calculos de vigas contfnuas passam a leve cafe da manna 
com este programa para a I in ha TRS-80. Use-o e implemente-o a vontade 



Vigas continuas: 
automatize os calculos 



Alexandre Domingues Campos 



Viga continua e o prato diano 
do projetista, prato este difi- 
cil de ser digerido ate cerca de 
dez anos atrds, quando come- 
caram a surgir as minicalculadoras pro- 
gramiveis e logo depois os microcompu- 
tadores. A partir dai, todo um macante 
trabalho manual de aplicacao dos rn^to- 
dos hiperesta'ticos, normalmente o de 
CROSS, utilizados para determinar al- 
guns parametros para dimensionamento, 
tornou-se automitico. 

Este artigo tenta atingir dois objeti- 
vos baacos: o primeiro e" dotar qualquer 
escrit6rio de cklculo estrutural que ad- 
quira um microcomputador de um pro- 
grama que possibilite calcular vigas con- 
tinuas; o segundo, bem mais amplo, i 
deixar para os colegas engenheiros que 
se disponham a desenvolver programas 
prbprios uma rotina para cdlculo dos 
elementos estruturais a que este artigo 
se re fere. 

Se o colega deseja um programa de 
maior alcance, para o calculo e dimen- 
sionamento de um pavimento tipo in- 
teiro, por exemplo, nao precisa preo- 
cupar-se ou ocupar seu tempo desen- 
volvendo a rotina de calculo estatico das 
vigas. pois esta pode ser simplesmente 
copiada da listagem aqui apresentada. 
Justamente por isso, fazemos referenda 
a estrutura interna de armazenamento 
do programa mais adiante. 
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O PROGRAMA 



Desenvolvido em BASIC para os 
equipamentos compativeis com o TRS- 
80, com pequenas alteracOes o progra- 
ma podera' tambdm rodar nos demais. 
mdtodo de resoluca"o empregado i o 
das Matrizes de transferencia (ver refe- 
rencia bibliograTica). 

programa 6 auto-explicativo. Pe- 
dem-se, na tela, os momentos de balan- 
ces a esquerda e a direita e, para cada 
vao, seu comprimento, niimero de tre- 
chos. carga e comprimento de cada tre- 
cho. Nos exemplos de aplicaca"o, podere- 
mos ver quao filcil c introduzir os dados. 

Como resultado, obtem-se todos os 
parametros necessarios ao dimensiona- 



mento de vigas continuas. Aparecem na 
tela, va"o apos vao, os seguintes dados: 

a) momento negativo no apoio a esquer- 
da do vao; 

b) esforoo cortante a esquerda; 

c) pnmeiro ponto de momento nulo; 

d) segundo ponto de momento nulo; 

e) esforco cortante a direita; 

f) ponto de momento miximo positivo; 

g) valor do momento maximo positivo. 



ARMAZENAMENTO DOS DADOS 



Cada vao 6 dividido em trechos, de- 
pendendo de seu niimero de cargas con- 
centradas. A figura 1 explica tal divisao. 

Os dados sa*o armazenados seqiien- 
cialmente em um vetor chamado vetor 




Figura 1 - Trechos de uma viga continua 
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de trabalho, designado por A no pro- 
grama. Nestes sa"o colocados, va"o ap6s 
vao, os valores correspondentes a cada 
um deles, e para cada trecho armaze- 
na-se: 

• Pj - carga concentrada no initio do 
trecho; 

• qj - carga distribuida no trecho; 

• aj - comprimento do trecho. 

Se o vao nao tem cargas concentra- 
das, armazena-se apenas sua carga dis- 
tribuida e o programa assume como 
compnmento do trecho o pr6prio vao. 
Sendo assim, o vetor de trabalho para a 
viga da figura 1 sera o que nos mostra a 
figura 2. 

programa opera com tais dados ate" 
a obtenca*o dos parametros de saida. Fa- 
ca seu programa montar automatica- 
mente o vetor de trabalho, seguindo a 
ordenacao aqui apresentada, e pode usa- 
lo como sub-rotina. 

Se quiser utUizar os valores dos mo- 
mentos e esforcos cortantes entao cal- 
culados (para dimensionar.porexemplo) 
antes da impressa"o de cada um, copie-os 
em outra variavel e transfira a execuga"o 
para o local em que serao operados. E 
bom proveito... 



sugestOes para 
implementa^ao 

Os colegas interessados podem auto- 
matizar ainda mais seus projetos com 
implementacdcs bastante liteis, aumen- 
tando muito a eficiencia de seus escnto- 
rios, como por exemplo: 

a) Programa integrado para cdlculo de 
um pavimento completo - usa-se para 
resolucao das vigas a rotina apresentada 
neste artigo, eliminando-se a entrada de 
dados e montando-se o vetor A a partir 
das entradas do primeiro; 

b) Cdlculo estdtico e dimensionamento 
de vigas continuas - a parte de dimen- 
sionamento pode ser facilmente mtro- 
duzida com a utilizacao dos resultados 
deste programa, como sugerido no ulti- 
mo paragrafo do item anterior. Opera-se 
com os esforcos chegando-se as dimen- 
soes e secffo de ferro necessirias para ca- 
da um deles, levando-se em conta as re- 
comendacoes de nossa norma brasileira 
para projetos de estrutura de concreto 
armado - a NB-1 ; 

c) Alterar a entrada de dados de forma 
a fornece-los para vdrias vigas ao mesmo 
tempo. Esta alteracao 6 rdpida e fdcil. 

Pode-se pensar em vdrios outros 
acrescimos. dependendo da necessidade 
de cada um, e ningue'm melhor do que 
os propnos colegas para decidir a este 
respeito. Vale ressaltar, no entanto.que 
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L . 


- Coaprimnnto do vao 1 








tV | 


- N^ de trechos no vao 1 = 2 








P. 


- Carga concentrada no inicio do 1° trecho 


= 






a. 


- Comprinento do trecho 1 








q i 


- Carga distribuida no 1° trecho f 








P. 


\ 








a. 


IDEM PARA TRECHO 2 








q i 


• 








L 7 


- Comprimento do vao 2 








tV ? 


- N° de trechos do vao 2 = 1 




A 


■ l 


q 2 

L 3 

tV 1 


S - Carga distribuida no vao 2 

- Comprimento do vao 3 

- N9 de trechos do vao 3=3 








P. 


- Carga concentrada no inicio do trecho 1 = 









a. 


- Comprimento do trecho 1 








q £ 


- Carga distribuida no trecho 1 
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a. 


• 
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q i 


IDEM PARA OS TRECHOS 2 E 3 
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a 
n 










q n 










\ / 







Figura 2 - Estrutura do vetor de trabalho 







3000 Kg 




« 2420 Kg.m 




1210 Kg/m , 


860 Kg/m 


ZJ H d ' r 




A A 

B 2,0 m u 2,5 m^ 2,5 m ^ 6 ,0 m 


^ Balanc,o 







Figura 3 - Viga-exemplo 

as unidades dos dados devem ser compa- 
ti'veis e nestas sairao os resultados. 

programa ocupa 3.864 bytes de 
mem6ria, sem o dimensionamento das 
vanaveis. Para ter sua capacidade au- 
mentada, basta que se altere o dimensio- 
namento, instruca*o DIM no inicio do 
programa, do vetor A. Este acre'scimo fi- 
cara" restrito a quantidade de memona 
disponivel de seu microcomputador. 

Embora possam variar de um trecho 
para outro, as cargas distribui'das devem 
ser uniformes em cada um deles. Se for 
necessano variar alguma, defina novo 



trecho, com carga concentrada initial 
igual a zero. 



EXEMPLO DE UTILEACAO 



Se voce deseja este programa tal co- 
mo esta, segue um exemplo aplicativo 
a partir do cdlculo da viga que esta na fi- 
gura 3. A esquerda, temos o que se apre- 
senta na tela, e a" direita os dados intro- 
duzidos: 



» 
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VIGAS CONTINUAS: AUTOMATIZE OS CALCULOS 



Telal 



IDENTIFICACAO DA VIGA VICA I 
M° DE VAOS 2 



Tela 2 



VICA 1 






COMPRIMENTO DO 


vAo l? 


5 


TRECHOS NO VAO? 




2 


P? 







a? 




2,5 


q? 




1210 


P? 




3000 


a? 




2,5 


q? 




860 



Teh 3 



VIGA 1 






COMPRIMENTO DO VAO 


2? 


6 


TRECHOS NO VAO? 




1 


q? 




860 



Tela 4 



VIGA 1 




MBE? 


-2420 


MBD? 





ENGASTES? 






Teh 5 



RESULTADOS 



TIC* 1 








VAO NtMEKO 1 








HON. NKCATIVO 


- 




-2420 


QK 


- 




393* 


Pt. MOM. NULO 1 


- 




0,68 


Pt. MOM. MILO 2 


- 




3,85 


V 






-*2*1 


I - 




2t5 




M*- 




3635 





Teh 6 



VICA 1 








VAO NUMF.RO 2 








MOM. NKCATIVO 


- 




-*279 


QE- 






3293 


Pt. MOM. MULO 1 


- 




1,65 


Pt. MOM. IWLO 2 


- 




5,99 


V 






-1867 


X - 




3,82 




"• 




2026 





Teh 7 



QUF.R CALCULAR OUTRA VIGA? 

READY 

>- 



Cabem algumas observacOes, enume- 
radas a seguir : 

• Na Teh 1 , a identificacao da viga po- 
de ser uma string de ate" 50 caracteres. 

• Nas Telas 2 e 3 nota-se que, se o vao 
tern mais de um trecho, o programa pe- 
dira, na ordem, P, a e q para cada um 
deles. O P do primeiro trecho deve ser 
introduzido como sendo igual a zero. 
Se o vfo tem apenas um trecho, o pro- 
grama pede apenas sua carga distribuida, 
evitando introduyao de dados desneces- 
sdnos. 

• Na Teh 4, se a pergunta ENGASTES 
for respondida com 1 , o programa pedi- 
ra CCE? (condicoes de contorno a es- 
querda) e CCD? (condicQes de contorno 
a direita), que serao para apoio sim- 
ples e 1 para engaste. A viga sera" entao 
resolvida para estas condicoes de contor- 



no e nao com o esquema normal de 
apoios simples nas extremidades. 

• Quando da saida de resultados, o mi- 
crocomputador os apresenta por vao. 
Para que novo va"o seja apresentado na 
tela, pressione qualquer tecla. 

• Na Teh 7, se a pergunta QUER CAL- 
CULAR OUTRA VIGA? responde se 1, 
o computador retorna a Teh 1 ; respon- 
dendo-se 0, encerra-se o programa. 
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5 CLS 

8 DEFDBL D-H,t W 

111 1NPUT"1DENTIFICA_A0 DA VIGA"; ID! : INPUT "N. DE VACS";N 

20 DIMP<N + l>,T<3,3>,U<3,3>,V<3,3),A(i0U>,FU0>,X<4> f ZC3),R<3>,S<:3) 



30 

<HJ 



B = i : 

FOR 



P(i ) =1 
i TO N 



50 CLS:PRINT ID*:PRINT "COMPRIMENTO DO VAO 



A? 



INPUT A(B>:D-B+1 



B ♦ 
= B 



i : INPUT 



B ■ B 



A<B): B =B 



X : INPUT "MBD "- Y : INPUT "ENGASTES 



6G INPUT "TRECHOS NO VAO " ; A(B) : D ■ A(B> 

70 FOR C = 1 1C D 

80 IT D = i THEN GO 10 100 

90 INPUT "P "; A(B> : B = 

100 INPUT "<\ " ; A<B) : B 

110 NEXT C 

iL'O IF F(i) = 1 GOTO 010 

130 P( A + 1 ) = B 

140 NEXT A 

150 CLS:PRINTID»:INPUT "MBE 

160 IF Z = i THEN GOTO 165 ELSE GOTO 17U 

165 INPUT "CCE ";0 : INPUT "CCD "; P 

170 FOR I ■ 1 TO 3 : FOR J = 1 TO 3 : U ( I,J )= : NEXT J, I 

180 U<i r i>-1 = U<2,2>"i : U(3,3>= 1 

190 FOR n= 1 TO N 

200 T<1,1) ■ -2 :T(2,2) ■ -2 :T(3,3)= 1 : T(3 r l)=0: T<3,2>= 

210 B ■ P<A): F =A (B + 1): T<2,1) ■ 6/A(B) :T<1,2> =A(B)/2s B =B+2 

220 IF F= 1 THEN GOTO 230 ELSE GOTO 240 

230 T( 1,3) A<B-2)63*A(B)/24:T(2,3)^-AtB-2)62«A<B)/4:G0T0350 

240 T<1,3)=0:T<2,3)=0:H=0:I^0 

250 FOR C=B TO Bf3*F-l STEP 3 

260 L=A<C-2-I) 

270 K=( <L-H)64-<L-H-A<C+1) >64)/24 

280 G=A(C>*<L H)62/2*<1-(L-H>/L) 

290 T(l,3)=T<l,3)+G+( < <L-H)63-(L-H-A<C+i ) )53 )/6- 3«K/L )*A(C+2> 

300 G=A(C>*<L-H)*< <L-H)62/L62-1) 

310 J=-<2«L-2»H-A<C+i> >#A(C+1 )/2 

320 T<2,3> = T<2,3)+G+<J+6»K/L62)»A<C+2> 

330 H=H+A(C+l):I=I+3 

340 NEXT C 

350 IF F(3J=1 THEN GOTO 590 

360 FOR 1*1 TO 3:F0R J=i TO 3: V( I , J) =G:NEXT J, I 

370 FOR 1=1 TO 3:F0R K=l TO 3:F0R J=i TO 3 

380 V(I,K)=V<I,K) H< I, J>*U(J,K> 

390 NEXT J.K.I 
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410 
430 
440 
450 
460 
470 
480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

5V0 

600 

610 

620 

630 

635 

636 

640 

650 

660 

6/0 

700 

710 

720 

730 

740 

750 

760 

770 

780 

7V0 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

9VU 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 
1145 

1160 
1170 
1100 
1190 
1200 
1210 
1220 
1230 



,,CINT(MF) 



FOR 1=1 rO J:FOR J^i TO 3:U( I , J) =V( I , J) :NEXT J, I 

NEXT A 

R<3>=1 

IF 0=0 AND P=0 THEN 510 

IF' 0"P THEN GOTO 460 ELSE GOTO 470 

M=-0<i r 3)/U<i,2)!R<l)=0:R<2)=M:MF=U<2,2>*M>U<2 r 3>:G0T0 520 

IF 0=0 THEM GOTO 480 ELSE GOTO 490 

R^-<U(l,2>*X+U<l,3>)/U<l,l>:R<l>=R:R<2>=X:MF=U<2,i>*R+U<2 T 2)«X+U 

(2,3):G0T0 20 

IF P=0 THEN GOTO 500 ELSE GOTO 510. 

M=(Y-U<2,3)>/U<2,2> :R(i)=0:R(2)=M:G0T0 520 

R=<Y-U<2 r 2)*X-U<2,3>)/U<2, 1 > :R < 1 >-R :R <2>-X 

r<3)=l 

FOR A=l TO N 

CLS:PRINTID*:PRINT:PRINT"OAO NUMERO";A 

PRINT"MOM. NEGATIVO = ",CINT<R <2> ) 

FOR 1=1 TO 3 : S(I)=0 : NEXT I 

GOSUB 700 

GOTO 200 

FOR !•! TO 3 r FOR J=l TO 3 

SvI)=T<I,J>*R(J>+SvI> 

NEXT J, I 

FOR 1=1 TO 3 : R(I) = S(I) : NEXT I 

NEXT A 

PRINT:PRINT:PRINT"MOM. FINAL = 

A4=INKEY*:IF A»=" ' THEN 636 

- X=0 I p=o : 0=0 : MF=0 
CLS:PRINT"QUER CALCULAR OUTRA VIGA "• : INPUT G 
IF G=l : CLEAR : GOTO 05 
END 

B=P(A) : F=A(B+1) : Q=0 : H=0 : 1=0 
Q=6*R(1)/(A<B))62 : IF E=l THEN Q=Q*I<A) 
Q=-3*R(2)/A(B)+Q : FJ = B+2 
IF F^l : Q=A<B>*A<8-2>/4+Q : GOTO 780 
FOR C=B TO B+3*F-1 STEP 3 : L=>A<C-2-I) 

Q=<A(C)«<L-H)63)/L63+A(C+2)/(4*L63)*<(L-H)64-(L-H-A(CH) )64)+Q 

H=A(C+i) + H : 1=1+3 

NEXT C 

PRINT"QE - ",, CINT(Q) 

B=P(A>+2 

Z(2)=Q i Z(3)=R(2) : M=R<2> 

IF F=i THEN Z(i)=-A(B)/2 : H=0 : 1=1 : C=B-3 : GOTO 930 

A(B--1)=0 : H=0 : 1 = 1 : K = -i 

FOR C=B TO B+3«K-1 STEP 3 

Z(i)=-A<C+2)/2 : Z<2)= Q +A(C+2)*H 

Z < 3 ) =M- < A ( C+2 ) «H62/2 ) 

S=0 l IF C=B THEN 920 

FOR J=K TO STEP -1 

S=A(C-3*J-2> + S 

Z(3) ■ A(C-3*J-i)«A<C-3«J-2)«(S-A(C-3«J-2)/2)+A(C-3»»J)«S+Z(3) 
Z(2) ■ -A(C-3*J-2)»A(C-3*J-1)-A<C-3»J)*Z<2) 
NEXT J 
K=K + i 

>62-4«Zcl>*Z<3> 
IF D<0 THEN GOTO 1060 
S=(-Z(2)+SQR(D) )/<2«Z(i> ) 
IF S>=H AND S<=H+A<C+i) : 
T=(-Z(2)-SQR(D))/(2*Z(1) ) 
II T>=H AND T<=H+A(C+1) : 
IF F(4)=l THEN X(I)=0 I 

IF F<5)=1 THEN X(I)»T 

X=-Z(2)/<2*Z(D) 

IF X<H OR X>H+A(C+i> : GOTO 1050 

X(3)=X 

X<4)=Z(i)«X62+Z<2>*X+Z<3> 

IF F=l THEN 1100 

H=H+A(C+i) : X=H 

G=Z<i)*X62+Z(2)»X+Z<3) 

IF G>X(4) THEN X(4)=G : X(3)-X 

NEXT C 

IF F(i)=l AND F(2)=l THEN 1140 

IF F<1)=1 THEN 4130 

PRINT"NAO HA PONTO DE MOM. NULO" : GOTO 1160 

X1=--X<1>*100 : X(1)=CINT(X1)/100* : PRINT"PT. MOM. NULO 1 = 

J I GOTO 1160 

IF X(i)>X(2) THEN G=X(1) : X(1)=X<2) : X(2)=G 

y^ 100«X(1) : X2=100«»X<2) I X< 1 ) =CINT(X1 )/100 : X <2)=CINT(X2)/J 

00 

F"RINT"PT. MOM. NULO 1 = ",X(D I PRINT"PT. 

G=P(A) : Q=2*Z(1)*A(G)+Z<2) '• PRINT "QD = 

G=P<A)+l:A<G)=F 

F(1)=0 : F(2)=0 

X3=X(3)»100 : X(3)=CINT(X3)/100 : PRINT"x 

PRINT"M+ = ", CINT(X<4)) 

X(4)=0 : X(3)=0 : X(2)=0 : X(1)=0 

A»=INKEY* : IF A4-"" THEN GOTO 1220 

RETURN 



F(4)=i 



: F<5)=1 
F(4)=0 : 
: F<5)=0 



F(I)=1 : 1=1+1 
F<I)=1 : 1=1+1 



MOM. NULO 2 
',. CINT(Q) 



,X(3) 



,X(i 



= ",X<2) 
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GLOBUS 

Alta performance 

para sistemas de 

processamento 

de dados. 

Impressora M-180 




Impressora matncial de impacto com 
velocidade de 180 cps. 

Projetada para servir como periferico 

a qualquer sistema de 

processamento de dados. 

Desenvolvimento Globus, 

utilizando-se de tecnologia de ponta 

em impressoras matriciais. Grande 

flexibilidade de software, com 

operacao facil e performance 

garantida. Alem de todas as 

interfaces disponiveis, e compativel 

com sistemas IBM. 

Impressora M-340 X 




Impressora matncial de impacto com 
velocidade de 340 cps 

A M-340 X e a nova designacao da 

M-200. Esta e a impressora matricial 

mais rapida disponivel no mercado. 

Devido a sua alta performance e 

confiabilidade tern merecido a 

preferencia para utilizacao em 

sistemas de processamento de 

dados. Possue interface para sistema 

IBM. A Globus produz linha completa 

de impressoras para todas 
aplicacoes, alem de dispor de pecas 
de reposicao para entrega imediata. 
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60m«MtNT0S PtWFtRKOS 

MUITO MAIS DO QUE MAQUINAS 
SIGNIFICA SERVIQO 

Matnz e Fabrica: Roa Isidro Rocha, 1057 
CEP 21241 - Tel.: 372-4385 - Telex (021) 31991 
GLDG - BR - Vigarlo Geral - RJ - Brasil 
Filial: Rua Stella. 51 5 -Bloco H - Grupo 21 
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VASTA REDE DE DISTRIBUICAO 



Em auxi'lio de quern trabalha com Assembler nos micros da linha Sinclair, 
um programa que revela o que se passa com o processador a cada instrucao dada 



O Assembler, 
passo a passo 



Gerson Bianco A Ion so 



Acho que todos concordam que programar em Assem- 
bler muitas vezes e" absolutamente necessano. Progra- 
mas de uso geral tern no BASIC a linguagem do coti- 
diano, mas quando a velocidade, a economia de me- 
m6ria e a eficiencia passam a ter um peso muito alto, 
o Assembler 6 a unica alternativa. 

acesso ao Assembler 6 feito atravSs da funca"o USR e sua 
montagem na mem6ria do micro 6" efetuada com PEEK e 
POKE, usando enderecos e codigos em decimal. Os recursos 
disponiveis no micro sa"o poucos, dai a existencia de uma serie 
de programas auxiliares que se incumbem de converter os c6di- 
gos, monti-los e executi-los, como e" o caso do Monitor Assem- 
bler, publicado em MICRO SISTEMAS mimero 23. 

Programar em Assembler £ ligeiramente diferente da progra- 
mac3o em BASIC, uma vez que a pessoa se ve obrigada a convi- 
ver com bits, flags, memonas, registros e uma sdrie de outros 
termos que, principalmente para o iniciante, tern um efeito 
aterrorizador. Existem equipamentos sofisticados e onerosos — 
se comparados com os nossos microcomputadores — que auxi- 
liam a desenvolver esta fase do processo, mas que nao sa"o vid- 
veis a nivel pessoal. 

PROGRAMA AUXILIAR 

programa que aqui trazemos foi desenvolvido para os mi- 
cros com 16gica Sinclair e se presta, respeitando-se as limita- 
coes dos equipamentos desta linha, a auxiliar o iniciante no de- 
senvolvimento de seus programas Assembler, embora possa ser 
bastante util mesmo para o programador mais experimentado. 
£ composto de uma listagem em BASIC e outra em Assembler. 

Voce saberia dizer, por exemplo, o que contem o acumula- 
dor e os flags apos efetuada uma instrucao? Pois muito bem. 
Com este programa sera" possivel observar, instrucao por instru- 
cao, o que acontece com cada um dos registradores, o estado 
de cada flag, o conteudo do acumulador em hexadecimal e na 
sua forma binana. 

Esti prevista a possibilidade de se executarem instrucCes de 
ate" 4 bytes (mdximo no Z80); entretanto, podem-se utilizar 
quatro instrucCes de 1 byte ou qualquer outra combinac^fo que 
totalize, no maximo, os 4 bytes. 

A parte em BASIC, ate* a instrucao 40, monta os tftulos. 
Dai" ate - a instrucao 120, transfere para a rotina Assembler a(s) 
instrucao (6es) que deve(m) ser executada(s). Na linha 130, 
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INSTRUCAO 



:■ 



FLAGS ACUMULADOR 
HINAKIO 

f 

/ SZ?H?$NC N / 7654 3210 N 



Bl B2 B3 B4 

,AA, S BB__CC / S DD__EE / ^B_LL / XX ZC 



V 



REGISTROS EM HEXADECIMAL 



y 



TIL 



-CARRY FLAG 
(HL) L—ZERO FLAG 



Figura 1 

passa o controle ao Assembler, que executa toda a tarefa de 

montagem de registros, flags etc. 

Se a instruclo for menor que 4 bytes, os bytes restantes se- 
rJo preenchidos com 00(NOP); se for maior, o excesso seii 
ignorado. Agora, se nenhuma instruclo for fornecida, a ultima 
seii reexecutada, proporcionando a possibilidade de observar 
uma seqiiencia sem redigita-la. 

O Assembler cria um conjunto ficticio de registros e opera 
com eles, os quais sempre sao mantidos atualizados e em me- 
m6ria. A cada operacao, eles sa"o recuperados, modificados e 
reguardados. 

A TELA 

Na tela, apos a execucao dos 4 bytes da instrucao fornecida 
via BASIC, serao apresentados os dados que constam da figura 
1 , os quais possuem as seguintes f uncoes: 

• Instrucao - mostr a os bytes executados; 

• Flags - mostra cada um dos flags: S (sinal), Z (zero), H 
(meio arraste), S (paridade overflow), N (subtracSo), Cfcarry), 
? (nao utilizado); 

• Acumulador binario - mostra o acumulador na sua forma 
biniria (bit por bit); 

• Registros - mostra o conteudo do acumulador e dos pares 
BC, DF e HL em hexadecimal; 

• xx - mostra o conteudo da mem6ria apontada por HL; 

• ZC - mostra os flags zero e carry que, por serem os mais 
utilizados, sSo destacados do grupo anterior. Nfo confundir: se 
o flag for 0, n2o significa que o resultado da operacio tenha 
sido zero; no entanto, se este for 1 , o resultado foi zero. 

A tela mostra a situacao descrita na figura 1 para as ultimas 
seis operacoes executadas. 
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Listagem BASIC 



10 SLOW 

20 PRINT "GERSON B ALONSO - MI 
CRO SISTEMAS" 

30 PRINT " INSTRUCAO IND-FL 

AG ACUMULADE D GH GB GD E32SB 
Q3 EODHH 

40 PRINT AT 21,3; "Q 10 H 13 

ana en bh 

50 LET A$="00" 

60 LET A$=A$+"0000000" 

70 LET A$=A$( TO 8) 

80 LET N=16530 

90 POKE N,CODE A$*16+CODE A$(2 
)-476 
100 LET N=N+1 
110 LET A$=A$(3 TO ) 
120 IF A$<>"" THEN GOTO 90 
130 RAND USR 16514 
140 INPUT A$ 

150 IF A$="" THEN GOTO 130 
160 GOTO 60 
170 SAVE "OBS REG" 
180 RUN 

































Blocos em 


Assembler 










16514 


21 


40 


40 


06 


04 


56 


23 


5E 


23 


D5 




16524 


10 


F9 


El 


Dl 


CI 


Fl 


00 


00 


00 


00 


16534 


F5 


E5 


F5 


E5 


D5 


C5 


F5 


06 


04 


21 


16544 


40 


40 


Dl 


72 


23 


73 


23 


10 


F9 


2A 


16554 


OC 


40 


0E 


63 


09 


54 


5D 


09 


01 


EF 


16564 


01 


ED 


B0 


EB 


0E 


22 


09 


11 


92 


40 


16574 


06 


03 


CD 


EE 


40 


Dl 


CD 


09 


41 


5A 


16584 


CD 


09 


41 


23 


23 


23 


11 


40 


40 


CD 


16594 


F4 


40 


13 


13 


06 


05 


CD 


EE 


40 


23 


16604 


Dl 


CD 


F4 


40 


23 


CI 


AF 


CB 


19 


8F 


16614 


CB 


69 


28 


0B 


CB 


E7 


18 


07 


CD 


F4 


16624 


40 


13 


10 


FA 


1A 


F5 


E6 


F0 


OF 


OF 


16634 


OF 


OF 


C6 


1C 


77 


Fl 


E6 


OF 


23 


C6 


16644 


1C 


77 


23 


23 


C9 


23 


23 


06 


08 


3E 


16654 


1C 


CB 


03 


30 


01 


3C 


77 


23 


10 


F5 


16664 


C9 





















RESTRJ0ES E EXEMPLO 

Antes de passarmos ao exemplo, i importante observar 
algumas restricts concernentes a operacionalidade do progra- 
ma: 

1) Devido ks pr6prias caracteristicas dos equipamentos da li- 
nha Sinclair, os registros auxiliares (AF', BC\ DE' e HL^, bem 
como os indices (IX e IY), na"o podem ser utilizados, pois o sis- 



AF. 



XOR A. 



AF 00 00 00 
00 00 00 00 



01000100 
00 00 00 



00000000 
D3 10 



3E 7E 

LOA,7E 

17 

RLA 

A7 

AND A 

06 04 

LDB,04 

80 

ADD B 

CE 00 

ADC 00 

CB 47 

CB F7 

SET 2, A 
SET 6, A 



DO US BB CD 

3B 7E 00 00 
7B 00 00 00 

17 00 00 00 
PC 00 00 00 

A7 00 00 00 
PC 00 00 00 

06 04 00 00 
PC 04 00 00 

80 00 00 00 

00 04 00 00 

CE 00 00 00 

01 04 00 00 

CE 47 CB F7 
45 04 00 00 

D ID 1 IE 



01000100 
00 00 00 

01101100 
00 00 00 

101 1 1 100 
00 00 00 

101 1 1100 
00 00 00 

01010001 
00 00 00 

00000000 
00 00 00 

00000000 
00 00 00 

ODD 



01111110 
D3 10 

11111 100 
D3 10 

1111 1100 
D3 00 

11 1 11100 
D3 00 

00000000 
D3 11 

00000001 
D3 00 

01000101 
D3 00 

(ini)Hi 



Figura 2 



Montagem do programa 



1) Coloquc o Monitor Assem- 
bler (MICRO SISTEMAS 23) 
na memoria do micro e logo 
apos digite uma linha 1 REM 
1 1_. que deve ter, no mi'nimo, 
IS I caracteres. A seguir, entre 
com o bloco Assembler. 

2) Digite a ustagem BASIC, 
exceto as instrucpes 1 70 e 180 
(e aconsclhavcl nao apagar o 



monitor: cle sera util se houver 
qualquer erro de digitacao na 
prime ira fase). 

3) Salve o programa cm fita. 

4) Rode o programa com RUN 
e execute as instrucoes que 
constam do final deste artigo. 

5) Uma vez testado, delete o 
Monitor Assembler. 

6) Salve a vcrsao final gravan- 
doaslinhas 170 e 180. 



tema os emprega para o manuseio da tela no modo SLOW. Co- 
locando o programa em FAST, 6 possivel acessi-los, bastando 
algumas altera^oes no programa e observando as restricoes ci- 
tadas no manual. 

2) Como o ponto de retorno ao BASIC 6 mantido no stack, 
este so deve ser utilizado se for reconstituido o seu estado ori- 
ginal antes de acabar a rotina Assembler. Portanto, toda instru- 
cSo PUSH deve ter o seu POP respectivo durante o processo. 

3) As instru?6es sa"o executadas sem ser analisadas, pois isto 
exigiria urn programa muito extenso. Desta forma, elas devem 
ser executadas uma a uma,ou em grupos que totalizem 4 bytes. 

4) Saltos sera"o executados fugindo ao controle do sistema, 
o que deve ser feito com bastante criteno ou dentro de sub- 
rotinas. 

5) Sub-rotinas podem ser utilizadas, desde que observados os 
itens anteriores. 

Passemos agora ao exemplo. A rotina Assembler que esti na 
figura 2 destina-se a demonstrar o efeito do programa. Pode-se 
observar a situacao interna nas ultimas seis operacSes. A partir 
dai, sempre 6 executado um SCROLL, perdendo-se a informa- 
9ao mais velha. 

Podemos saber agora tudo o que aconteceu durante a exe- 
cucao da nossa rotina: o acumulador conte*m 45H, o registro B 
conte'm 04H e nSo ha" nenhum flag setado. 

DICASFINAIS 

Caso voce precise verificar algumas rotinas, estas devem ser 
montadas em qualquer parte da mem6ria e chamadas por um 
CALL (CD xx xx) que conte'm menos de 4 bytes. Este proces- 
so permite executar blocos de instru9des cujo tamanho flea li- 
mitado a quantidade de mem6ria disponfvel. Ap6s a execucfo, 
serSo mostrados os resultados como se a rotina fosse uma uni- 
ca instruif'ao. 

O programa foi montado com fms unicamente diddticos e 
pode rodar em equipamentos com 2 Kb de memdria. Vale tam- 
be^m destacar que, atrave*s do valor mostrado pela memdria 
apontada por HL, 6 possfvel monitorar outros programas 
Assembler. ■ 



G6rson Bianco Alonso 6 engenheiro e atua na Area de Projetos MecSni- 
cos/Estruturais. E autodidata em microcomputadores, possuindo um Sin- 
clair, Sharp PC-1500e HP-41. Junto com Daniel Hendrick, desenvolve 
programas para estes equipamentos. 
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Voce pode utilizar palavras diferentes para identificar os comandos 
do DOS, criando novas listas de palavras reservadas. Veja como 




Alterando 
comandos DOS 



Rudolf Horner Junior 



Quando estamos digitando uma linha de programa, to- 
das as teclas que tocamos estao sendo registradas em 
um buffer de mem6na. Trata-se de um espaco de 256 
bytes (que ficam na pagina numero dois da mem6ria RAM) on- 
de sao registrados temporanamente todos os comandos e ins- 
trucoes que introduzimos ate* que pressionamos a tecla de re- 
torno (RETURN ou CR: retornar o carro). E justamente por 
este motivo que o computador impede que sejam escntas li- 
nhas de instrucao muito grandes. As linhas s6 podem ser in- 
troduzidas caso possam ser colocadas no espaco de 256 bytes 
destinados ao buffer de entrada pelo teclado. 

Assim que definimos que a linha ]i acabou de ser escrita, o 
computador percorre este buffer e procura entender o que foi 
introduzido, tentando identificar comandos que sejam da lin- 
guagem BASIC ou do Sistema Operacional de Discos. Feita a 
identifi cacao, a linha de programa £ registrada em um outro 
ponto da mem6ria e o buffer de entrada volta a ficai disponi- 
vel para uma outra entrada pelo teclado. 

Quando percorre o buffer procurando palavras reservadas 
do BASIC ou do DOS, o computador tern que confrontar cada 
sequencia de caracteres que digitamos com uma lista interna de 
palavras reservadas. Quando encontra uma palavra de que ele 
conhece o significado, ]& saberd o que fazer quando tiver que 
executar o programa, uma vez que cada palavra reservada tern 
uma funcao e uma aplicacSo especificas. 

Existem basicamente, portanto, na memoria do computa- 
dor, duas listas: uma lista dos comandos da lmguagem BASIC 
e uma lista das palavras reservadas do Sistema Operacional. 
Embora tenham a mesma funcao, as listas sao registradas em 
tipos diferentes de mem6ria do computador. A lista de coman- 
dos BASIC e" dita residente e £ gravada na mem6na ROM. A 
lista de comandos DOS £ armazenada em memdna RAM assim 
que o equipamento e ligado. 

AS FORMAS DE REGISTRO 

As listas de comandos esta"o registradas em enderecos espe- 
cificos da memoria, e a forma como sao registradas as palavras 
reservadas £ bastante simples. No Apple, a tabela de ASC II £ 
duplicada, de modo que todos os caracteres podem ser identi- 
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ie 


TEXT : HONE : NORMAL = SPEE!>^ 




255= PRINT "LISTA ' IAND 




OS MPPLESUF1 : ": PRINT 


20 


FOR H - 53456 TO 53860: REM 




ENC'ERELU-r DA LISTH DE COMAND 




OS APPLESOFT 


36 


C = PEEK <A>I PRINT CHR* 




; : IF C < 123 THEN 60 


48 


L = L + l: HTAB 1 + 3 * <L - IN=I 




< L - 3 > 1 


58 


IF PEEK -:36> = THEN PRINT 


60 


NEXT : PRINT -■ 1 



Figura 1 

ficados por ate* dois niimeros. Desta forma, a letra T pode ser 
codificada tanto pelo numero 84 como pelo numero 212, que 
e da segunda tabela. 

Para registrar o comando PRINT na lista de palavras reser- 
vadas, por exemplo, sao gastos cinco bytes (um para cada ca- 
rdter da palavra). Em determinado ponto da ROM (pois 
PRINT e um comando da lmguagem BASIC), existe um nu- 
mero que codifica a letra P, outro que codifica a letra R, outro 
a letra I e outro a letra N. Todos estes numeros sao tornados da 
primeira tabela de ASC II. Para registrar a letra T (ultima da 
palavra). usa-se igualmente o ASC II de T em sua codificacao, 
mas da segunda tabela e nao da primeira (212 e na*o 84). Desta 
forma, fica registrado o comando PRINT como uma palavra 
reservada de BASIC, e o ASC II da ultima letra da palavra £ co- 
dificado com um numero da segunda tabela, para indicar o fi- 
nal desta palavra. 

programa que estd listado na figura 1 le a memoria ROM 
do computador e faz uma lista de palavras reservadas atraves 
destas formas que acabamos de explicar. A lista de comandos 
BASIC, como podemos ver na instrucao da linha 20, principia 
no endereco decimal 53456 e vai ate" o endere?o 53860. 
programa simplesmente le os numeros e os transforma para o 
cardter ASC II correspondente. Toda vez que £ encontrado um 
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te 


TEXT : HOME : NORMAL : SPEED- 




255: PRINT "LISTA 1 WAND 




OS DO D.O.S. " : PRINT 


20 


FOR H a 43140 TO 43271 ■ REM 




ENDERECOS DA LIS COMAND 




:.. S. 


36 


C = PEEK CA>I PRINT CHR* •<:.:. 




1 I IF C < 128 THEN 60 


46 


L = L ♦• It HTAB 1 -»- 10 * <L - 




INT <L 4- * 4> 


98 


IF PEEK <36> = THEN PRINT 


68 


NEXT : PRINT : END 



Figura 2 

numero que representa uma letra da segunda tabela, o compu- 
tador sabe que encontrou o final de uma palavra reservada. 

Na figura 2 temos um programa bastante semelhante ao da 
figura 1 . Este programa tambe'm elabora uma Lsta de coman- 
dos, desta vez percorrendo a memdria RAM e gerando a lista 
de comandos do Sistema Operational de Discos. Os enderecos 
de mem6ria agora sSo de 43140 ate" 43271. £ importante ob- 
servar, entretanto, que estes enderecos fazem referencia a lista 
de comandos do DOS para sistemas com 48 Kb de membria 
RAM. Para sistemas que dispOem de menos mem6ria, a lista de 
comandos 6 registrada em enderecos menores. funcionamen- 
to deste programa 6 identico ao do anterior e a figura 3 mostra 
o que acontece quando ele e" executado. 

Observe que a lista de comandos do DOS tern 28 comandos, 
dos quais dois (SAVE e LOAD) sa"o comuns a lista correspon- 
dente do BASIC. Para o BASIC, estes comandos fazem referen- 



LISTA DOS 


COMrNDOS 


DO D.O.S. 


INIT 


LOAD 


SAME 


CHAIN 


DELETE 


LOCK 


CLOSE 


READ 


:ec 


POSITION 


OPEN 


APPEND 


ITALOG 


MON 


NOMON 


IN# 


MAXFILES 


FP 


BSAUE 


BLOOD 


BRUM 



RUN 

UNLOCK 

WRITE 

RENAME 
PRO 
INT 
UERIFV 



Figura 3 



cia ao uso do gravador cassete para armazenamento de mfor- 
macoes; para o DOS, SAVE e LOAD representam a maneira de 
registrar e carregar programas em BASIC para um disco magne - - 
tico. 

COMO ALTERAR AS PALAVRAS DO DOS 

Como ja" vimos, os comandos do DOS estao registrados em 
mem6na RAM e, sendo assim, podemos alterar seus nomes 
atrave's do comando POKE. Considere, por exemplo, que quei- 
ramos traduzir o comando DELETE, que serve para apagar de- 
terminados titulos do disco magne"tico. DELETE possui seis 
caracteres e, portanto, s6 poderemos substitui-lo por uma pala- 
vra que tambe'm tenha seis caracteres. APAGAR, por exemplo. 
Para fazer isto, devemos encontrar os enderecos onde estfo as 
letras do comando DELETE e troci-las pelas letras de seu subs- 
tit uto APAGAR. £ necessirio lembrar que, ao registrar a ulti- 
ma letra (R), devemos faze-lo usando a segunda representacSo 
da tabela de ASC II para a letra R. Feita a troca, o computador 
indicard um erro de smtaxe se tentarmos usar o comando DE- 
LETE, pois ele jd nfo existe mais. No entanto, com o comando 
APAGAR que acabamos de criar, poderemos fazer exatamente 
o mesmo que fariamos com DELETE, uma vez que s6 muda- 
mos o seu nome e na*o a rotina em linguagem de mdquina que 
realiza sua funcfo. 

Se voce quiser criar um disco com esta mudanca, basta ini- 
cializd-lo com o sistema operational que acabou de ser altera- 
do, empregando o comando INIT, ou qualquer outro que quei- 
ra criar para substitui-lo. Caso voce execute o programa da fi- 
gura 2, apos efetuadas as modificacoes, as palavras que foram 
alteradas jd irSo constar da lista de comandos, ocupando o lu- 
gar das antigas. 

programa listado na figura 4 foi feito justamente para fa- 
cilitar a alteracao dos comandos do DOS. Basta que o usuirio 
escreva o nome do comando que define a rotina que ele quer 
alterar e, em seguida, o novo nome que ele pretende usar para 
identificar aquele comando do Sistema Operational de Discos. 
A alteracio £ feita automaticamente. A unica restricao 6 
que os novos nomes deverao ter sempre o mesmo numero de 
caracteres que os antigos. 



Rudolf Homer Junior cursa CiSncia da ComputagSo na Unicamp e 4 s6- 
cio da Potencial Softvmre, firma que produz programas para microcom- 
putadores em Campinas. SP. 
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TEXT : HOME s NORMAL « SPEED* 
28>,L<28) 

€ COMANDOS 
51 HOME 
PDA m =. l TO 28: READ B.I 
:L'H- = 43140 ♦ Bt NEXT 
E8EJA hl:i 

COHAN : QET R«: IF 

P» « "N" THEN 190 



100 
110 



50 


• PRINT 1 PRINT : INPUT 


120 




R 1 NT 


130 




: PRINT 




M 


' 1 TO 28« .IF CO* < ? 

>:«•>.. THEN NEXT 




70 


8 THEM PRINT "NAO EN 






RADO 1 ! ": PRINT : PRINT : 


140 




PRINT " PRESS 1 ONE UNA TECLh: 






- as > r»i Lino 40 


150 


80 


■ L B fCN4>l IF LEN 
1 Cf4$ ■ >* ■ THEN PRINT 






: PRINT t PRINT "QUANTIDADE 


160 




DE CARAC TERES ERRADA"! PRINT 






: PRINT : PRINT 






M TECLh: ■»! GET R»l BOTO 40 


170 



FOR C - 1 TO 10:B<C> - Ol 
: FOR C « 1 TO LEN <CN*>*B< 
C> - A8C • Nir.* CCN*.( 
NEXT 
B< LEN (CM*) - » B. LEN C( 
* 128 
FOR C « L CA> ♦ LEN 

CCV*>i POM • -bo: + i - 
: NEXT 

CN* 
PRINT f PRINT : PRINT »| 
O. COMANDO TROCADO.": PR4N1 
: PRINT : PRINT : PRINT "PRE 
SSIONE UMA TBCLAl "II QET R» 

O- INIT,4.L0AD,8,6AUE, 
12. RUN. 15,1 mm in. 0. DELETE 

OaTm 26 - LOC K • 30. UNLOCK 

LOSE. 41. RE hC». 4 '.WRIT 

E 

DATA 54, POSITION. 62. OPEN. 66 

i APPEND • 72 . RENAME ■ 78 - C A I • 

.85, MON. 88. NOMON 

DATA 93. PR*. 96. IN#,99,MAXFI 

LES. 107, FP. 109. INT. U2.BSm'ie 



Figura 4 
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180 DATA 117.BLOAD. 122.BRUH 

.UERIFV 
190 TEXT « HOME : NORMAL s SPEED= 

235? PRINT "LISTA DOS COMAND 

06 D.O.S. "« PRINT 
210 FOR A - 43140 TO 43271 
220 C ■= PEEK <A>I PRINT CNR* CC 

>»i IF C < 128 THEN 250 
230 L * L ♦ !■ HTaB 4 + 10 • a • 

I N I • L .».♦.«. 
240 IF PEEK <36> - THEN PRINT 

250 NEXT « PRINT 

260 PRINT » PRINT "PARA REG] 

R i. UOCED 

E"ERh ink ializar uh 

om este sistema 0« 

ALTEPhI' 
270 PRINT » PRINT "NA [I 

AO USE COMANDO 'INIT' 
•SEU CORRESPONt'ENT | 
ALTERaCOES EPETUADl 
280 END 

290 REM ESTE PROGRAMA FOI ESCR1 
TO PARA D.O.S. COM 48K 
M 
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Arquivos 
protegidos 



Roberto Tannenbaum 



Oprograma que ora apresentamos 
pretende ilustrar a t^cnica de cria- 
cao e proteca"o de arquivos em rru- 
crocomputadores TK85 que, sendo da 
linha Sinclair, possui funcOes como 
DHSAVE e DHLOAD que facihtam bas- 
tante o uso de arquivos. Isto porque, 
ale"m de gravar somente os dados, estas 
funcoes possibilitam uma rdpida leitura 
da tita cassete (em apenas cinco minu- 
tos, por exemplo, 6 possivel ter acesso a 
mais de 100 Kb de dados, tornando real- 
mente r£pido o ato de procurar fichas 
gravadas). 

Um arquivo para computador 6 prati- 
camente igual a qualquer arquivo de es- 
crit6rio. Voce pode char fichas, apaga- 
las e corrigi-las. A unica diferenca £ que, 
devido a limitacfo de mem6na destes 
pequenos equipamentos, voce terd aces- 
so a um bloco de fichas e n2o a todas as 
fichas que gravou, mas voce pode traba- 
lhar com um bloco e depois carregar o 
micro com um novo bloco. Desta forma, 
6 ilimitado o mimero de fichas que se 
podem gravar. 

CR1ANDO E PROTEGENDO FICHAS 

Uma ficha nada mais e" do que um 
corrjunto de informacOes sobre uma 
pessoa ou outra coisa qualquer. Vejamos 
dois exemplos: 

a) NOME: Fulano; IDADE: 8 meses; 
SEXO:masc. 
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Voce pode transformar 

seu TK85em um arquivo 
confidential, ao qual 

apenas voce teri acesso 
a partir de um codigo 
secreto. Neste artigo, 
revelamos as tecnicas 

de criacao e protecao de 

fichas, exemplificando 

com um programa que 

Simula no computador um 

arquivo farmaceutico. 



■ ■ ■ 



b) PAI'S: Brasil; MOEDA: cruzeiro; 
POPULACAO: 120milhSes 
Como fazer uma destas fichas no 
computador? £ muito simples: 10 LET 
AS = "NOME: FULANO IDADE: 8 
MESES SEXO:MASC." (NEWLINE e 
RUN). Para ter acesso a esta ficha, basta 
usar PRINT A$ (NEWLINE). Digamos, 
porCm, que voce" se lembre de que fula- 
no tern 9 e nlo 8 meses. que fazer 
para corrigir a ficha? Digite a linha 10 
novamente, trocando 8 por 9. O unico 



problema t que na"o so a ficha foi aJtera- 
da, mas tambCm o programa nSo 6 mais o 
mesmo, pois esta nova linha 10 6 dife- 
rente da anterior. 

Muito bem. Agora tente este progra- 
ma: 10 INPUT A$ (NEWLINE e RUN). 
Para entrar a ficha, digite-a e pressione 
NEWLINE. Para corrigir, repita o passo 
anterior. Este exemplo mostra que para 
fazer fichas 6 preferivel usar INPUT a 
LET, pois. assim, podemos modificar a 
ficha sem alterar o programa e, desta 
forma, grava-lo uma unica vez. 

E para ampliar o arquivo de 1 para 
30 fichas, o que fazer? Pode-se pensar 
em usar 20 INPUT BS, 30 INPUT C$ 
etc., um para cada ficha. No entanto, 
isto € im possivel, pois uma string possui 
so uma letra para ldentificd-la: portanto, 
nao teriamos 30 fichas disponi'veis. Po- 
de-se pensar em usar matrizes: A$ 
(30,100) - 30 6 o niimero de fichas e 
100 o tamanho de cada uma. Isto tam- 
be'm nSo funciona, uma vez que o TK 
grava apenas matrizes de uma dimensfo. 
A unica soluca"o e", portanto, DIM AS 
(3000). Teriamos A$(l) at<< A$(100) 
como primeira ficha, ou AS (101 TO 
200) para a segunda, ou ainda AS (1+ 
100*N TO 100+100*N) para a enCsima 
ficha. Ao gravarmos AS, estaremos gra- 
vando todas elas juntas. 

Vamos passar agora para o assunto 
proteqdo de blocos. Se no nosso exem- 
plo tive"ssemos dimensionado A$(3010), 
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teriamos uma sobra de dez elementos, 
A$(3001 TO 3010), que podem ser 
preenchidos com quaisquer caracteres 
atrave's de um comando INPUT. Esses 
caracteres podem funcionar como um 
codigo de protecSo: basta entrar com 
um codigo de acesso antes da leitura de 
um bloco. Logo apos a leitura, esse co- 
digo de acesso e" comparado ao de prote- 
cao, A$(300l TO 3010). Se osdois co- 
digos forem diferentes, podemos apagar 
todas as fichas com RUN ou CLEAR. 
Assinr, s6 quern gravou o codigo de pro- 
teca"o sabera" o codigo de acesso correto, 
protegendo, assim, o bloco. 

PROGRAM A 

programa utiliza estas tecnicas que 
acabamos de ver. e mostra sua eficiencia 
na pratica. Atrave's dele, voce manipula 
um arquivo farmaceutico, ou seja, voce 
pode fichar vanos reme'dios e suas prin- 
cipals caracteristicas: nome (e" evidente), 
laboratono que o produziu, indicacoes, 
contra-indicacSes e posologia. 

Cada bloco e constituido de 15 fi- 
chas, com espaijo reservado para o c6di- 
go de protecjfo. O computador trabalha 
com apenas um bloco por vez. Por 
exemplo. se voce desejar fichar 50 reme'- 
dios. terd que gravar quatro blocos 
(15+15+15+15) - nao se preocupe com 
isto, pois em menos de tres rrunutos vo- 



ce* poderd listar todos os blocos. Para 
mampular o arquivo, devem-se utilizar 
os c6digos de operacSo que aparecerao 
no video ao executar o programa. Estes 
codigos s3o : 

1) Fichar os nomes - tecle 1 (NEWLI- 
NE) e o computador Ustara' os nomes 
dos 15 reme'dios que compOem o bloco. 
O niimero do lado esquerdo de cada 
nome 6 o niimero correspondente aque- 
la ficha. Este niimero 6 importante, pois 
serd usado para apagar, ler ou corrigir a 
ficha correspondente. Caso a ficha esteja 
em branco ou o item nome nao tenha 
sido preenchido, aparecera somente o 
niimero da ficha seguido de dois pon- 
tos (:). Para voltar aos codigos de opera- 
cab, digite qualquer tecla. 

2) Fazer uma ficha - para preencher 
uma ficha em branco tecle 2 (NEWLI- 
NE). Aparecerd a pergunta: QUAL O 
NOME? Digite o nome e depois NEW- 
LINE. Responda as outras perguntas da 
mesma maneira. Quando a ficha estiver 
pronta, ela ficara no video ate' qualquer 
tecla ser pressionada. Se voce tentar fa- 
zer a 16? ficha (so existem 15), o 
computador mandard armazenar o bloco. 

3) Apagar uma ficha - para apagar uma 
ficha, tecle 3 e NEWLINE. Para respon- 
der qual deve ser apagada, tecle o niime- 



ro correspondente e NEWLINE. O 
niimero da ficha 6 aquele do codigo 1 . 

4) Corrigir uma ficha - tecle 4 (NEW- 
LINE). Entre com o niimero da ficha a 
ser corrigida (e NEWLINE). Para indicar 
qual item deve ser corrigido, tecle a pri- 
meira letra do item, por exemplo: tecle 
P para corrigir a POSOLOGIA. Digite 
a nova posologia e NEWLINE. Para cor- 
rigir outro item pressione S, ou entao 
N. A ficha corrigida ficara' no visor ate" 
que alguma tecla seja acionada. 

5) Gravar um bloco - tecle 5 (NEWLI- 
NE). Aparecerd na tela a seguinte men- 
sagem: QUAL O CODIGO DE PROTE- 
CAO? Entre com o codigo digitando, no 
rndximo, nove caracteres (e NEWLINE). 
Pressione PLAY-REC no gravador e 
NEWLINE para iniciar a gravacSo (su- 
p6e-se que a fita esteja no lugar certo e 
que os fios estejam hgados corretamen- 
te). Se a gravacao for bem-sucedida, o 
computador apagara todas as fichas, for- 
necendo assim 15 novas fichas. Caso 
contr&io, aparecera" o erro cometido. 

6) Carregar um bloco - digite 6 e 
NEWLINE. Responda qual 6 o codigo de 
acesso, digitando depois NEWLINE (este 
devera' ser iguaJ ao codigo de prote?a"o do 
bloco que serd carregado). Pressione 
NEWLINE e PLAY no gravador. Caso a 
leitura seja perfeita e o cddigo de acesso » 



Assine 



Informatica & 

Administracao 



As informagoes 



estao 



aoseu alcance 






M/cro «c/, as 



^^hr^ac-Simile: cop 



(Se voce nao quiser cortar sua revista, tire uma xerox do cupom abaixo) 



empresa 



promsao/cargo 



endere^o para remessa 



cidade. 



. cep. 



estado . 



Assinatura anual 

□ Informdtico & Administragoo Cr$ 10.000,00 

□ Micro Sistemas Cr$ 15.000,00 

f~l Informdtica & Administrate + Micro Sistemas Cr$ 22.000^00 



u^ 



Junta a estes dados cheque nominal 6: 

ATlEditoraLtdo. 

Al. Gabriel Monteiro da Silva. 1227 — Sao Paulo — SP — CEP 01441 

Tel. ; (011) 853-3800. 

R. Visconde Silva, 25 — Rio de Joneiro — RJ — CEP 22281 

Tel.: (021) 286-1797, 246- 3839 e 266-0339 

(seu recibo ser6 enviado pelo correio) 
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ARQUIVOS PROTEGIDOS 



10 REM ROBERTO TANNENBAUM 

20 FAST 

30 DIM A$(10570) 

40 LET Z=10570 

50 LET Z*="A" 

60 LET B$="NOME:( 17) LAB: (38) 
INDICACOES:(27 7) CONTRA- IND I CAC 
OES:(206) POSOLOGIA: ( 118) " 

70 FOR F=0 TO 14 

80 LET A$(10+F*704 TO 713+F*70 
4)-B$ 

90 NEXT F 
100 SLOW 
110 CLS 
120 PRINT "CODIGOS DE OPERACAO 

'l30 PRINT "1-LISTAR OS NOMES" 

140 PRINT "2-FAZER UMA FICHA" 

150 PRINT "3-APAGAR UMA FICHA" 

160 PRINT "4-CORRIGIR UMA FICHA 

170 PRINT "5-GRAVAR UM BLOCO" 
180 PRINT "6-CARREGAR UM BLOCO" 
190 PRINT "7-LISTAR UM BLOCO" 
200 PRINT "8-LER UMA FICHA" 
210 INPUT C _^ ... 

215 IF C<1 OR C>8 THEN GOTO 210 
220 CLS 
230 GOTO C'1000 

1000 PRINT "OS NOMES DESTE BLOCO 
SAO : " , , , 

1010 FOR D=0 TO 14 

1020 PRINT D;TAB 2 ;A$ (14+D*704 T 

O 31+D*704) 

1030 NEXT D 

1040 IF INKEY$«"" THEN GOTO 1040 

1050 GOTO 110 

2000 FOR D=0 TO 14 

2010 IF A$(10+D*704 TO 713+D*704 

) =B$ THEN GOTO 2060 

2020 NEXT D 

2030 PRINT "ARMAZENE ESTE BLOCO 

ANTES DE FAZER UMA NOVA FICHA" 

2040 PAUSE 500 

2050 GOTO 110 

2060 FOR G=2110 TO 2230 STEP 30 

2070 GOSUB G 

2080 CLS 

2090 NEXT G 

2100 GOTO G 



Arquivo farmaceutico 



2110 

2120 

04) 

2130 

2140 

2150 

04) 

2160 

2170 



PRINT "QUAL O NOME?" 

INPUT A$(15+D*704 TO 30+D*7 

RETURN 

PRINT "QUAL O LABORATORIO?" 

INPUT A$(36+D*704 TO 41+D*7 

RETURN 

PRINT "QUAIS AS INDICACOES? 



2180 INPUT A*(85+D*704 TO 329+D* 

704) 

2190 RETURN 

2200 PRINT "QUAIS AS CONTRA INDI 

CACOES?" 

2210 INPUT A$(380+D*704 TO 553+D 

*704) 

2220 RETURN 

2230 PRINT "QUAL A POSOLOGIA?" 

2240 INPUT A*(596+D*704 TO 713+D 

•704) 

2250 RETURN 

2260 PRINT AT ,0 ; A$ (10+D*704 TO 

713+D*704) 
2270 IF INKEY$="" THEN GOTO 2270 
2280 GOTO 110 

3000 PRINT "QUAL FICHA SERA APAG 
ADA?" 

3010 INPUT D 

3020 LET A$(10+D*704 TO 713+D*70 
4)=B$ 

3030 GOTO 110 

4000 PRINT "QUAL FICHA SERA CORR 
IGIDA?" 
4010 INPUT D 
4020 CLS 

4030 PRINT "QUAL ITEM SERA CORRI 
GIDO?" 

4040 PAUSE 50000 
4050 LET C$=INKEY$ 
4060 CLS 

4070 LET X=2110*(C$="N")+2140*(C 
$="L") +2170* (C$-"I") +2200* (C$-"C 
")+2230*(C$="P") 
4075 IF X THEN GOSUB X 
4080 CLS 

4090 PRINT "MAIS ALGUMA CORRECAO 
?(S/N)" 

4100 PAUSE 5000 
4110 IF INKEY$="S" THEN GOTO 402 



4120 GOTO 2260 

5000 PRINT "QUAL O CODIGO DE PRO 

TECAO?" 

5010 INPUT A$(l TO 9) 

5020 CLS 

5030 PRINT "PRESSIONE PLAY-REC E 

NEWLINE" 
5040 PAUSE 40000 
5050 CLS 

5060 LET E=USR 9008 
5070 SLOW 

5080 IF E=0 THEN GOTO 5110 
5090 PRINT "ERRO ";E;" TENTE NOV 
AME^TE" 

5100 GOTO 5020 
5110 PRINT "BLOCO GRAVADO" 
5115 PAUSE 200 
5120 RUN 
6000 PRINT "QUAL O CODIGO DE ACE 

SSO?" 

6010 INPUT D$ 

6020 CLS 

6030 PRINT "PRESSIONE NEWLINE E 

PLAY" 

6040 PAUSE 40000 

6050 LET E=USR 9189 

6060 IF D$<>A$(1 TO (LEN D$) ) TH 

EN CLEAR 

6070 SLOW 

6080 CLS 

6090 IF E=0 THEN GOTO 1000 

6100 PRINT "ERRO ";E;" TENTE NOV 

AMENTE" 

6110 GOTO 6020 

7000 FOR F=0 TO 14 

7010 PRINT A$(F*704+10 TO F*704+ 

713) 

7020 PAUSE 120 

7030 CLS 

7040 NEXT F 

7050 GOTO 110 

8000 PRINT "QUAL A FICHA?" 

8010 INPUT D 

8020 CLS 

80 30 PRINT A$(10+D*704 TO 713+D* 

704) 

8040 PAUSE 40000 

8050 GOTO 110 



MOHE: 

INDICATES: 

CONTRA-INDICAQOES: 

POSOLOCIA: 



LAB; 



Figura 1 

esteja correto, aparecera"o os nomes dos 
remddios deste bloco; caso contrario, 
aparecera a in dicacao- 2/6090 no canto 
do video. 

7) Listar um bloco - digite 7 (NEWLI- 
NE). O computador far* uma rdpida lis- 
tagem de todas as fichas, demorando 
dois segundos em cada uma. Para parai 
em uma delas pressione BREAK; para 
continual, CONT. 

8) Ler uma ficha - se voce desejar ape- 
nas ler uma ficha, digite 8 (NEWLINE). 



Para indicar qual delas, entre com o 
numero correspondente e NEWLINE. 
Ela permaneceri no video por 1 5 minu- 
tos ou ate - ser pressionada qualquer tecla. 
Sao estes os codigos de operacao. 
Podem parecer confusos, mas a melhor 
forma de entende-los i digitando todo o 
programa e colocando-o em acio. Voce 
vera que ele £ realmente fdcil de operar. 

Tome cuidado apenas ao entrar com 
a linha 60. O numero entre parenteses 
equivale ao numero de espacos a ser 
digitado. Para venficar se voce digitou a 
linha corretamente, use PRINT BS 
(NEWLINE): o resultado devera ser a 
ficha que esta' na figura 1. Note que 
todos os itens estfo na primeira coluna, 
exceto LAB:. Se o resultado for diferen- 
te, faca as correcoes necessanas. Outra 
coisa: se o programa se interromper (ca- 
so voce coloque dados errados), pressio- 
ne GOTO 110 e NEWLINE para reini- 
ciar. 



£ aconselhavel gravar blocos com as 
15 fichas completas, pois voce gastara o 
mesmo tempo e a mesma memoria que 
para gravar um bloco com uma so ficha 
preenchida. Ainda aconselho gravar so- 
bre um bloco que nao tenha mais utili- 
dade. Por exemplo: voce carrega o 
computador com um bloco, faz algumas 
correcoes em algumas fichas. Ao gravar 
o bloco corngido, faca-o sobre o nao - 
corrigido, aquele que nSo tern mais utili- 
dade. £ bom ter uma fita de seguran?a, 
copia da original, e que esteja sempre 
atualizada. 

E para terminar, uma observacSo: pa- 
ra 48 Kb de mem6na, o numero de fi- 
chas de cada bloco pode chegar a 60. £ 
s6 fazer as alteracoes necessanas. ■ 

Roberto Tannenbaum 4 estudante de Enge- 
nharia na Escola Polite" en ica da USP e tern por 
hobby a programagio de calculadoras e 
micros. 
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Datalife 




\i*rbafim 



ENTREGA IMEDIATA 



FD 34-9.000 


Simples face simples densidade 

26 selores 

1 28 bytes/ sector. 8 polegadas 


FD 34-8 000 


Simples face/dupla densidade 
Nao setoruado - nao formatado 
8 polegadas 


DD 34-4001 


Dupla face/dupla densidade 
Nao setoruado - nao formatado 
8 polegadas 


MD 525-01 


Simples face/dupla 

densidade 40 trilhas 5 1/4 polegadas 


MD 550-01 


Dupla face/dupla 

densidade 40 trilhas 5 1 /4 polegadas 



Datalife 100% livre de I 




CENTRAL DE VENDAS: 

Av Amolfo de Azevedo. 108 - Pacaembu 

PABX (011) 262-5577 Telex (011) 34545 

CEP 01236 Sao Paulo 

Filial Rio Praia do Flamengo. 66 cj: 1519 
Tel: (021) 205-3849 225-3469 

Para encomendas fora de Sao Paulo: 

LIGUE DIRETO GRATIS 

(011)800-8462 




PRODUZIDO NA 
ZONA FRANCA DE MANAUS 

signitica: quaiidadc com 5 anos de garantia 
e o melhor preco do mercado. 

Revendedores e fabricantes intcressados: 
Tel (011)262-5332 



MANAUS PARA 
'HIS PARA TOD 



SUCESU-SC promove 
Congresso Regional 



Mais um evento na area de 
Informatica reunira, em am- 
plo debate, profissionais do 
ramo. autoridades. intelec- 
tuais. usuarios. estudantes e 
o publico em geral: o VI Con- 
gresso Regional e III Feira Na- 
tional de Informatica, a se 
realizarem de 15 a 20 de maio, 
no Centro de Convencoes da 
Citur, em Balneario Cambo- 
riu, Santa Catarina, tendo co- 
mo tema "Informatica a ser- 
vico da comunidade ". 

A promocao e da SUCESU- 
Nacional e a realizacao da 
SUCESU-SC. com o patroci- 
nio oficial da SEI. O VI Con- 
gresso tera conferencias, pai- 



neis e sessoes tecnicas. pro- 
curando dar aos parti cipantes 
uma visao atual e futura das 
aplicacoes dos computadores 
nos diversos campos de ati- 
vidade. 

Os estandes da III Feira 
ocuparao uma area de 1.340 
metros quadrados. estando 
ainda reservado um espaco 
para as universidades da re- 
giao que desenvolvem proje- 
tos na area e ten ham interes- 
se em divulga-los As sessoes 
para estudantes, jovens e cri- 
ancas serao desenvolvidas 
num pavilhao anexo ao da 
Feira, com area de 300 me- 
tros quadrados. 




Mais uma loja no Rio 



Inaugurada recentemente 
no Rio de Janeiro, a Data- 
micro Informatica Ltda. esta 
comercializando computado- 
res Color 64. TK 83 e 85 e os 
CPs 300 e 500. alem de peri- 
fericos, suprimentos, progra- 
mas aplicativos. liyros e revis- 
tas especializados, cursos e 
treinamento de pessoal. Na 



area de cursos destacam-se o 
de Aplicagao do Microcom- 
putador na Engenharia e Mi- 
crocomputador para Crianga, 
ambos oferecidos em diver- 
sos horarios. A Datamicro fica 
na Rua Visconde de Piraja, 
547 — sobreloja 211, Ipane- 
ma, Rio de Janeiro — RJ. CEP 
22410. tel.: (021) 274-1042. 



Dois novos Apples no mercado nacional 




A Link, uma empresa com experiencia em consultoria e 
desenvolvimento de software, lanca agora seu microcomputador, 
o Link 323, compativel com Apple II. Definido como um micro 
profissional. o Link 323 e comercializado numa versao padrao 
composta por CPU com 64 Kbytes de memoria RAM — expan- 
sivel ate 512 Kbytes — e 12 Kbytes de ROM, teclado com letras 
maiusculas e minusculas. monitor de video de fosforo verde. 
interface paralela para impressora, dois drives para disquetes de 
5 1 /4" e dois sistemas operacionais: CP/M e DOS. 

Nesta versao o preco sugerido pelo fabricante para comer- 
cializacao e de Cr$ 4 milhoes e 800 mil. e acompanham os pro- 
gramas Wordstar, Calcstar e Datastar, todos da software-house 
Microstar. com a qual a Link mantem contrato para fornecimento 
de software Alem destes programas, a propria Link esta desen- 
volvendo pacotes para controle financeiro. mercantil e cadasiro, 
que estarao disponiveis a partir de margo. O Link 323 tern garantia 
de um ano e o comprador recebe gratuitamente um curso de 
15 horas, na prbpria Link Center, sobre os recursos do equipa- 
mento O micro da Link sera comercializado em lojas especia- 
hzadas. empresas de consultoria e bureaux de servicos. e no 
Mappin, em Sao Paulo. 



Exato 



Com um investimento de cerca de Cr$ 500 milhoes. a CCE 
entra no mercado de microcomputacao lancando o Exato, compa- 
tivel com o Apple americano. Ele opera com processador 6502 
e sua versao basica e composta por CPU com teclado com parte 
numerica independente e teclas de funcao com cores. 48 Kbytes 
de memoria RAM — expansivel ate 128 Kbytes -. 12 Kbytes de 
ROM e oito slots de expansao com um conector extra para placa 
Pal-M. Nesta versao, o preco do Exato e de Cr$ 1 milhao 180 mil 
e estara disponivel em 600 pontos de venda. 

A producao inicial da CCE sera de 300 unidades por mes e 
juntamente com o microcomputador a CCE esta lancando os 
cartoes de expansao de memoria com 16 Kbytes de RAM. o con- 
trolador para ate duas unidades de acionadores de disquetes de 
5 1 /4 ". a interface para impressora paralela e o cartao Pal-M para 
acoplar o micro a televisores comuns preto e branco ou a cores. 
A CCE tambem esta colocando a disposicao de usuarios uma 
linha telefonica para consultas e esclarecimentos que podem 
ser feitos pelo tel.: (011) 265-2199 — Sao Paulo. 
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Sisco em Campinas 



Continuando o seu piano 
de interiorizacao, a Sisco- 
Sistemas e Computadores 
S/A inaugurou uma filial em 
Campinas, Sao Paulo. A infra- 
estrutura da filial Sisco-Cam- 
pinas dispoe de hardware, 
software e treinamento tecni- 
co para clientes. La tambem 



ja sao encontrados varios sis- 
temas para areas administra- 
tivas e financeiras, inclusive 
em controle de processos. A 
Sisco de Campinas fica na 
Rua Barao de Paranapanema, 
146. bloco B. 5° andar. cj. 51 / 
52. tel.: (0192)52-4765. 




Software 
para engenharia 



Micro Sistemas fez urn le- 
vantamento entre algumas 
lojas de microcomputadores 
em Sao Paulo para ver o que 
existe de software na area de 
Engenharia. Nao mais de dez 
programas foram encontra- 
dos. a maioria para os equi- 
pamentos da linha Sinclair e 
para o micro HP-85, da Hew- 
lett Packard. 

Se voce tern um micro ou 
pretende adquirir um para 
usar em Engenharia, ai vao 
algumas dicas de software. 
Para os microcomputadores 
da linha Sinclair encontramos 
os seguintes programas: C6I- 
culo de viga contlnua. da Mi- 
crosoft. Cr$ 11.790,00 (preco 
minimo); Cilculo de EI6trica. 
Cr$ 13.800.00. Calculo de Hi- 
dnkulica. Cr$ 13.800.00 e Con- 
trole de Obras, Cr$ 19.800,00, 
da Baronsoft. Para o HP-85 
sao os seguintes os progra- 
mas disponiveis nas lojas: Por- 
plan. que analisa estruturas 
planas com carreqamento 



atuando em seu proprio pia- 
no, Cr$ 740.000.00; Grelha. 
analisa estruturas planas com 
carregamento atuando na di- 
recao normal ao seu piano. 
Cr$ 510.000.00; Vicont. anali- 
sa vigas continuas. CrS . . . 
189.000,00; e Progeo. deter- 
mina as propriedades geome- 
tricas de secoes de forma 
qualquer, Cr$ 94.000.00. To- 
dos estes programas para o 
HP-85 sao da software-house 
Prosystem. Para o CP-500. da 
Prologica, encontramos os 
programas Rede Pert/CPM, 
da LHM. Cr$ 190.000,00; e 
para os sistemas 600 e 700. 
da Prologica. e para o I-7000. 
da Itautec. se encontra nas 
lojas um programa para Orca- 
mento e Cronograma de 

Obras, da Ramo. Cr$ 

377.000.00. 

Participaram da pesquisa 
as lojas MicroShop. Compu- 
shop, Computique, Compu- 
terland e I mares. 



As novas fitas 
da Softkristian 



A Kristian Eletronica esta 
lancando. sob a marca Soft- 
kristian, 12 novas fitas para 
micros com logica Sinclair, 
entre jogos. utilitarios e a fita 
virgem LD-20, utilizando ma- 
terial Ampex. 

As fitas de jogos sao as 
seguintes: Viagem G atactica 
(com tres jogos), Grand Prix 
(dois jogos). Contatos Imedia- 
tos (quatro jogos). Mr. Kong 
(tres jogos). Boeing 787 (um 
simulador de voo e mais dois 
jogos), Terceira Dimensao 
(quatro jogos), Velho Oeste 
(quatro jogos) e Grande Sa- 
botage™ (quatro jogos). to- 
dos para 16 Kbytes de me- 
moria. 

Os utilitarios compreendem: 



Z-80 — Monitor Assembler 
(permite a programagao em 
mnemonicos Z80). SKBUG (di- 
sassembler e monitor em lin- 
guagem de maquina) e ROT 3 
(cinco rot i nas prontas para 
usar em programas em BASIC: 
High Speed. Super Scroll. CLS 
Espiral. Rotina Tape e Faster 
Todos esses programas sao 
em linguagem de maquina e 
as fitas incorporam o Azimuth 
Regulating System, destinado 
a otimizar o carregamento 
Essas fitas podem ser encon- 
tradas nos 100 revendedores 
da empresa em todo o pais, 
ou na propria Kristian, que 
fica na Rua da Lapa. 120. Gr. 
505. CEP 20021. Rio de Janei- 
ro — RJ, tel.: (021)252-9057. 



Banco de dados para Sinclair 

TK-FILE e o sistema de Banco de Dados desenvolvido em lin- 
guagem de maquina pela Multisoft e que esta a disposipao dos 
usuarios da linha TK da Microdigital. Este programa, possibilita a 
definicao das informacoes que serao manipuladas. bem como sua 
forma de impressao, permitindo a classificacao e selecao por 
campos ou chaves. inclusao. alteracao, exclusao e consulta de 
fichas. O TK-FILE pode ter diversas aplicacoes que vao desde uma 
simples lista telefonica ate um complexo controle de estoque ou 
mesmo um Banco de Dados para mala-direta. 



it Com a instalacao dos postos Rio de Janeiro (Rua Visconde 
de Piraja, 414 — Conj. 606. tel.: 227-1002) e Porto Alegre (Av. Bor- 
ges de Medeiros. 410, Bloco II. 11? andar. Conj. 1108). a Micro- 
digital da inicio a sua rede nacional de assistencia tecmca. * Com 
novo endereco (Av. do Contorno, 6048, Savassi, Belo Horizonte 
— MG, tel.: (031) 225-0644), a Kemitron esta lancando diversos 
novos perifericos para o seu micro Naja. * A Potencial Software, 
de Campinas, esta lancando o volume dois do seu curso de BASIC 
Passo a Passo, no qual o professor e o proprio micro Apple. 
* A Compucenter Microinform6tica tern novo diretor tecnico: 
Valter Hitelman. * A Softec, fabricante do EGO. micro de 16 bits 
compativel com IBM-PC. inaugurou suas novas instalacoes indus- 
trials em Sao Paulo, com cerca de 1 mil m^ e capacidade para 
produzir ate 500 unidades /mes. • Estava prevista para a se- 
gunda quinzena de Janeiro a chegada as lojas das primeiras uni- 
dades do T Color (compativel com TRS-Color) e Sysdata III (com- 
pativel com TRS-80 Mod. Ill), ambos da Sysdata. com os seguintes 
precos. respectivamente: Cr$ 380 mil e Cr$ 2 milhoes 700 mil. 



ISTRINGSl 



* A Codimex ja esta fornecendo as primeiras unidades de dis- 
quete face simples /densidade dupla de 5 1 /4", alem de pro- 
gramas aplicativos nas areas financeira, comercial, de engenharia 
e medica. tudo para o Codimex 6809 * A loja Micro Process 
(Alameda Lorena, 1310. tel.: (011) 64-0468, Sao Paulo — SP) esta 
criando um ponto de encontro de engenheiros, arquitetos e agro- 
nomos para o fornecimento e intercambio de equipamentos e 
programas para essas areas. * Ja esta chegando ao mercado o 
videogame VJ 9000. da Dismac. A empresa ja exporta calcula- 
doras. sobretudo para Argentina e Mexico, e este ano planeja 
iniciar a venda de micros para o exterior. * A Itautec desenvol- 
veu e esta comercializando para o seu micro I-7000 a planilha 
eletronica de calculo Calctec. it A Cobra comemora este ano 
os seus 10 anos de existencia com o lancamento de diversos 
produtos, entre eles um micro de 32 bits totalmente desenvolvido 
pela empresa. * A Control Data tern pianos de instalar no Brasil 
duas fabricas em associacao com empresas nacionais: uma de 
disquetes e outra de computadores medios tipo Cyber 815 e 825. » 

m 
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Assespro firma 
convenios de soft 

A Associacao Brasileira das Empresas de Servicos de Infor- 
matica — Assespro encerrou 1983 com a assinatura de tres im- 
portantes convenios para fomentar o desenvolvimento e a comer- 
cializacao de software nacional: com as multinacionais Control 
Data e IBM. e com a estatal Digibras. 

convenio com a Control Data, denominado Programs de 
Apoio ao Desenvolvimento e Comercializagao de Programas de 
Computador no Brasil — Progsoft. compreende o desenvolvi- 
mento de software de base, de apoio e aplicativo para uso na 
Rede Cybernet ou em computadores da Control Data. Os pro- 
gramas poderao tambem ter versoes para outros fabricantes que 
nao a Control Data, dependendo de contrato especifico. 

Ja o convenio com a IBM. que recebeu o nome de Programa 
Tecnico-Comercial de Interesse Reciproco Assespro-IBM. preve 
a realizacao de no've projetos: Desenvolvimento e Comerciali- 
zagao de Programas-Produto, Modernizagao do Parque Compu- 
tacional dos Bureaux de Servigos. Indicagao de Empresas para 
Servigos Identificados pela IBM. Comercializagao de Programas 
pela IBM, Divulgagao de Programas-Produto em Cat&logo da IBM. 
Demonstragoes em Equipamentos IBM. Tradugao de Manuais da 
IBM. Tradugao e Versao de Programas IBM. Atualizagao T6cnica. 

Quanto ao Programa Nacional de Financiamento para a 
Comercializagao de Programas de Computador — Finsoft. assi- 
nado com a posteriormente extinta Digibras, este ainda tern uma 
chance de se concretizar. de acordo com o presidente nacional 
da Assespro. Jose Maria T. C. Sobrinho: a sua transferencia para 
o BNDES. Ate meados de Janeiro, contudo, a Assespro nao dis- 
punha de uma posicao oficial do governo a respeito desse 
convenio. 



Rio e Sao Paulo tern 
Micro-Festival 84 



Solucoes. tecnologia e no- 
vas aplicacoes estarao pre- 
sentes no Micro-Festival 84. 
de 21 a 24 de marco no Pala- 
cio das Convencoes do Par- 
que Anhembi. em Sao Paulo; 
e de 04 a 07 de julho no Hotel 
Nacional, no Rio de Janeiro. 
Este evento e promovido pela 
Guazzelli Associados Feiras e 
Promocoes e com orientacao 



Soft para Digitus 

Ja se encontram disponi- 
veis no mercado os seguintes 
programas para o microcom- 
putador Digitus: Pacote de 
Comunicagao. que permite a 
utilizacao da tecnologia de 
comunicagao serial de dados 
para conversar com os outros 
usuarios do DGT-1000 (para 
isso e necessario, alem do mi- 
crocomputador Digitus, uma 



tecnica da Compucenter Mi- 
croinformatica. 

A feira ocupara uma area 
de 12 metros quadrados que 
serao locados aos exposito- 
rs com os respectivos estan- 
des ja montados. Simultanea- 
mente. ocorrerao secoes tec- 
nicas em auditorios. abordan- 
do os principals temas rela- 
cionados com a microinfor- 
matica. 

interface RS232 e urn mo- 
dem); Digicalc. que e total- 
mente compativel com o Visi- 
calc; Demofita I ou Demodis- 
co I. jogos em linguagem de 
maquina; Demofita II ou De- 
modisco II. 12 jogos em BA- 
SIC, e Digfile. urn sistema de 
Banco de Dados que permite 
o armazenamento de qualquer 
tipo de informacao. A Digitus 
tambem tern programas para 
Banco de Dados. Controle de 
Estoque, Processador de Tex- 
tos e Editor Assembler 



A melhor casa do Rio para 

Os executivos que vem aoRio, principalmente a negocios, agora podem contar com 

uma casa que transforma sua rapida passagem pela cidade maravilhosa em 

momentos inesqueciveis. Em pleno coracao de Copacabana, estamos de bracos 

abertos e prontos para oferecer dos mais simples aos mais sofisticados 

modelos e acessorios que fazem nossaatividade tao excitante e tao imprescindivel 

nos dias atuais. 

Oferecemos o que existe de melhor, em termos de qualidade. E a preco e condiqoes de 

pagamento (e, nos financiamos) que nenhuma outra casa do ramo oferece. 

Nossa filial aa Rio Branco tambem tern o mesmo atendimento e o mesmo prepo. 

Quando voce estiver no Rio, passe bons momentos conosco. Nossos 

precos sao tao em conta que de repente a diferenca da para cobrir seus custos de 

passagem eestadia. 

Vc 



mpi 
Veja esta oferta ai ao lado, por exemplo. 



face e sua empresa vao descobrir como e fantastico, e barato, o mundo dos 

microcomputadores. 

Vejae 

DGT-1000 

Agora voce tern um microcomputador modular com design moderno expansivel 

del6a64k. 

A interface de video colorido e uma de suas oppoes, e lhe permite usar ate 1 6 cores 

diferentes no mundo de resolucao grafica. Voce tambem pode movimentar no 

video ate 32 areas diferentes. 

Aunica coisa que nao e expansivel no DGT-1000 e o preco na Clappy: o menor 

do mercado. 

Venha conhecer esta nova conquista da DIGITUS. 



Clappy 



Copacabana: Rua Pompeu Loureiro, 99 

Centro: Av. Rio Branco, 12#lojaesobreloja«Tels.: (021) 

222-5517 • 234-0214 • 264-2096 • 253-3395 • 222-5721 

• 2574398 #236-7175 

CX)PACABAHA:AbeiTadiaiiamente(^10^20hoi^ea 1 ossabaxios(^ 10asl5horas. 




Promocdo 

MSlMicromaq 
entrega 

Color 64 




Luiz Alberto de Souza Malafaia. vencedor da promocao 
MICRO SISTEMAS/Micromaq. recebeu o seu premio — urn 
microcomputador Color 64 com 64 Kbytes de memoria e 
mais 64 programas aplicativos — no dia 16 de dezembro na 
sede da loja carioca. localizada na Rua Sete de Setembro, 
92,loja 106. O equipamento e os programas foram ofereci- 
dos pela Industria de Computadores Novo Tempo Ltda. 
Malafaia.que mora no bairro de Iraja. no Rio de Janeiro, e 
programador de computadores. trabalhando na empresa 
Gura Alimentos e no Inamps. 



SEI avalia superminis 



ASEl recebeu ao todo 
nove projetos para fabricacao 
de superminicomputadores no 
Brasil. Das empresas que 
apresentaram projetos a SEI. 
apenas a Cobra, SID e Labo 
se utilizarao de tecnologia na- 
cional. O comunicado da Se- 
cretary de Informatica sobre 
os projetos dos superminis 
nao faz distingao. a priori, en- 
tre os de tecnologia nacional 
e aqueles com tecnologia 
comprada no exterior. O re- 
sultado final dos projetos 
aprovados sera divulgado em 
30 de margo proximo. As ou- 
tras empresas que apresenta- 
ram projetos para desenvolvi- 



mento dos superminicompu- 
tadores foram: Itautec. com 
tecnologia da Formation ame- 
ricana; Edisa. tecnologia ja- 
ponesa do Fujitsu serie V; 
Sisco /Hidroservice. com tec- 
nologia da IPL — Systems, 
compativel com os perifericos 
dos computadores 4331 e 
4341 da IBM; o consorcio for- 
mado pelo Bradesco. Cia. Do- 
cas de Santos e Medidata, 
com tecnologia americana da 
Digital Equipment Corpora- 
tion e a ABC Sistemas com 
dois projetos. um com tecno- 
logia Hewlett Packard e ou- 
tro com tecnologia da Honey- 
well Bull. 



Monk adere 
a linha Apple 

Apos dois anos e meio dedi- 
cados ao desenvolvimento de 
software aplicativo para a li- 
nha TRS-80, a Monk Microin- 
formatica passa agora a atuar 
tambem na linha Apple. Para 
estes equipamentos, a empre- 
sa acaba de lancar o Data 
Master, sistema gerenciador 
de banco de dados, o SMD — 
Sistema de Mala Direta, o Vi- 
sibank, programa em lingua- 
gem de maquina para cadas- 
tro e controle de lancamentos 
em contas bancanas. Pagrec 
— Controle de Contas a Pa- 



gar e a Receber, Redator, sis- 
tema de processamento de 
textos. e o Sistema de Con- 
trole de Estoque Comercial, 
alem de vanos jogos. 

Para as maquinas compati- 
veis com o TRS-80. a Monk 
lancou o SCE II — Sistema 
de Controle de Estoque Indus- 
trial, que apresenta uma novi- 
dade: a impressao de relato- 
rios e feita simultaneamente 
ao uso geral do sistema. dei- 
xando o comando do teclado 
livre para o usuario, mesmo 
com a impressao em anda- 
mento. Esse recurso devera 
ser implantado ao poucos em 
todos os programas desenvol- 
vidos pela Monk para a linha 
TRS-80. ■ 



executivos de alto nivel. 




UIGIJUS 



CPU , monitor, 2 drives. 

Entregamos em todo Brasil pelo reembolso Varig. 



£ sempre bom ter uma copia de reserva. Para os usuarios da linha TRS-80, 
um utilitario que reproduz programas em fita gravados no formato SYSTEM 



Copsys 



Daniel Augusto Martins 



O monitor residente na mem6ria 
ROM dos rrucrocomputadores 
compativeis com o TRS-80 
permite a reproducao de pro- 
gramas gravados em BASIC atraves de 
comandos simples. CLOAD X, onde X 
e um alfanumenco qualquer identifican- 
do o programa, permite ler uma fita. isto 
e. carregar um programa de nome X na 
mem6na do micro. Para reproducao de 
um programa, o comando CSAVE X 
transfere o que esta residente em me- 
m6ria para a fita no gravador, atribuin- 
do-lhe o nome X para posterior identi- 
fica^ao pelo comando CLOAD. £ usan- 



do deste modo estes dois comandos 
simples que se pode fazer a reproducao 
de programas BASIC. 

J£ para fitas gravadas com progra- 
mas em formato SYSTEM, como, por 
exemplo, as fitas de jogos escritos em 
linguagem de maquina, utilitirios ven- 
didos no mercado e programas produzi- 
dos por montadores (Assemblers) ou 
compiladores, a forma de leitura 6 dife- 
rente. Para traze-los para a memoria, o 
usuano devc sau do ambiente do inter- 
pretador BASIC usando o comando 
SYSTEM. Este comando informa ao 
monitor residente em ROM que o usua- 



no quer executar algum programa pre- 
viamente carregado na mem6ria, ou en- 
ta"o que ele quer carregar um programa 
a partir do gravador. 

No primeiro caso, o usuirio respon- 
de a pergunta * ? que o monitor lhe faz 
pressionando a tecla / e o endereco de 
mem6ria onde esta" a pnmeira instrucSo 
de um programa a ser executado. No 
segundo caso, ele responde com um 
nome de, no maximo, seis alfanume'ri- 
cos, indicando assim qual dos programas 
em linguagem de mdquina da fita ele 
deseja que seja trazido para a mem6ria. 

formato utilizado na gravacao de 



Como usar o utilitario 



Entre com o programa. Nao tcntc mo- 
dificar a numeracao das linhas que 
contem as instrucoes DATA ncm ten- 
tc comprimir estas linhas ou expandi-las. Di- 
gite RUN. A mensagcm CARREGANDO 
O PROGRAMA aparecera no meio do video 
e os dados dc cada linha DATA serao mos- 
trados no canto superior direito do video. 

O programa toi escrito de modo que. se 
por descuido na hora de entrar com o pro- 
grama pelo teclado. algum dado das bnhasde 
DATA cstiver crrado. o utilitario mostrara a 
mensagcm ERRO NA LINHA: n c suspcndc- 
ra a sua execucao. Nestc caso.faca um LIST 
iia linha n, confira com a bstagem do pro- 
grama, corriia o crro e volte a executar o co- 
mando RUN. 

irn que todos os erros forem corrigi- 
dos. o video sc apagara c a mensagcm 
BATA A TECLA L P/ LER UMA FITA 
A TECLA G P/ REPRODUZIR OU CLEAR 
P/ RETORNO AO BASIC 
aparecera na tela do micro. Coloquc entao a 
fita a rcproduzir no gravador. acione a tecla 
PLAY c prcssionc L no teclado do micro. 
Nao e prcciso dar ENTER. O motor do gra- 
vador sera ligado c a mensagem LENDO A 
FITA sera mostrada. 



Assim que o primeiro programa SYS- 
11 M tor encontrado, o scu nome sera mos- 
trado no canto superior direito do video, se- 
guido por um asterisco fixo e outro que fica- 
ra piscando rapidamentc. O pTOgrama da fita 
estara entao sendo trazido para a memoria. 
Caso ele nao cstcja em formato SYS I I \1, 
em BASIC, por exemplo. a mensagcm 
ERRO DE FORMATO apareccni c o progra- 
ma aguardara' que seja tocada qualquer te- 
cla para se posicionar no cstado inicial. 

Se algum crro dc leitura na fita for en- 
contrado. a mensagem ERRO DL CHECK- 
SUM aparecera. e o programa aguardara no- 
vamentc por qualquer tecla para se posicio- 
nar no inicio. I'm qualquer dos casos. po- 
dem ser feitas novas tcntativas dc carrega- 
mento. como o ajustc do volume do grava- 
dor se o erro for de checksum. Contudo, 
paxa cvitar contra tempos, c recomendavel 
que seja feito um ensaio dc carrcgamento do 
programa usando o comando SYSTEM an- 
lenornicnte ilcscrito para « certificar de 
que nao ha problema dc leitura. 

Sc tudo se passar bem. o programa da ti- 

i trazido para a memoria. Assim que a 

leitura term in ax, o motor do gravador sera 

>k'sli;!ado e a mensagcm LENDO A FITA 



desaparecera. E importante observar que, 
apesar de o programa tcr sido bdo para a 
memoria. ele nao podera ser executado. 
Mesmo assim, como o utilitario le o progra- 
ma realizando todos os testes que normal- 
mentc sao feitos pelo monitor quando se 
usa o comando SYSTEM, cxiste uma possi- 
bilidade apenas remota de que ele nao tenha 
sido Udo com succsso. 

Dcsaparccendo a mensagem LENDO A 
FITA do vi'dco, retire do gravador o casse- 
tc com o programa original e coloque uma 
fita vugem bobinando-a para a frente. para 
•aurar de que a cabeca dc leitura do 
gravador fique sobre o meio magnet i/.avel da 
fita. 1 m ecral. tres a CiDOO voltas sao sufi- 
cientcs. Coloquc o gravador pronto para gra- 
vacao e digite (;. O motor do gravador vol- 
tara a ser bgado e a mensagem GRAVANDO 
aparecera no vi'deo. O programa estara sen- 
do reproduzido. 

Tao logo o motor sc dcsligue c a ni> 
gem GRAVANDO desaparcca, estara pronta 
uma salvaguarda da fita original c o utilita- 
rio podera ser usado para fazcr outras copias 
do mesmo programa, bastando para isso vol- 
tar a tecla G; rcproduzir outros programas, 
tecla L;ou tecla CLEAR (rctornar ao BA- 
SIC). 
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5240 DATA 47 , 32 . 82 . 69 , 84 , 79 . 82 . 78 . 79 , 32 , 152 


Copsys 


5250 DATA 65 , 79 , 32 . 66 . 65 , 83 . 73 . 67 , 41 , 8 , 59 






5260 DATA , , 49 ■ 231 , 78 , 205 , 213 , 80 . 285 . 43 , 90 






5270 DATA , 254 , 31 , 202 , 235 , 80 , 254 , 76 , 32 , 244 , 128 


108 REH*«* PROGRAHA PARA PRODUZIR SALVAGUARDAS DE FITAS 




5298 DATA 33 . 128 . 68 . 17 . 65 . 79 . 205 , 192 , 80 . 62 . 153 


118 REM**** GRAVADAS EH FORMATO SYSTEM 




5290 DATA 1 , 205 . 18 . 2 . 205 . 150 > 2 , 33 , 241 , 90 , 169 


121 REM**** ESTE PROGRAHA ROM EH QUALQUER HICRO-COWUTftDOR 


5380 DATA 205 . 183 . 80 . 254 . 85 . 194 , 153 . 88 , 17 , 56 , 27 


138 REM**** TOTflLMENTE COHPATIVEl COH TRS88 HODELO I NIVEL II 


5310 DATA 60 . 6 , 6 , 285 , 183 . 88 . 18 . 19 , 16 , 249 . 74 


148 REM**** DA TflNDY CORPORATION 




5320 DATA 175 , 79 . 285 , 183 , 88 , 254 , 68 , 40 . 8 . 254 , 58 


158 REM**** DANIEL AUGUSTO MARTINS BSB 14,81.83 




5330 DATA 120 , 202 , 77 , 80 . 195 , 153 , 88 , 285 , 183 , 88 . 95 


168 CLS:PflINTS45B. ' CARREGANDO PROGRAM" 




5348 DATA 71 , 285 , 183 . 88 . 129 . 79 . 205 , 183 , 80 . 129 . 64 


178 GOSU865000 




5359 DATA 79 , 205 . 183 . 80 . 129 . 79 , 16 , 249 . 285 , 183 . 128 


!98 P0KE16526>143:P0KE1G527,79:X*USR(B) 




5366 DATA 88 , 185 , 194 , 201 , 80 , 24 , 209 . 285 . 183 , 88 , 161 


5888 DATA 5888 .20280.20728 




5370 DATA 285 , 183 , 90 . 34 , 226 , 79 . 285 . 248 . 1 , 285 , 186 


5810 DATA 66 . 65 . 84 , 65 , 32 , 65 . 32 . 84 . 69 . 67 


. 117 


5380 DATA 213 . 90 . 285 , 43 , 8 . 254 , 31 , 282 , 235 , 98 . 63 


5020 DATA 76 . 65 . 32 . 76 . 32 . 91 . 65 . 82 . 65 . 32 


. 93 


5398 DATA 254 , 76 . 282 . 246 . 79 . 254 . 71 , 194 , 92 . 88 , 12 


5030 DATA 76 . 69 . 82 . 32 . 85 . 77 , 65 , 32 . 70 , 73 


. 149 


5408 DATA 33 . 128 , 68 . 17 . 78 , 79 . 285 , 192 , 88 , 62 . 166 


5848 DATA 84 , 65 , , 32 , 65 ■ 32 . 84 , 69 . 67 , 76 , 


62 


5418 DATA 1 . 285 . 18 . 2 , 205 . 132 , 2 . 33 , 241 , 98 , 151 


5858 DATA 65 . 32 . 71 . 32 . 88 . 65 . 82 . 65 . 32 . 82 


94 


5420 DATA 126 , 205 . 100 . 2 , 35 , 237 , 91 , 226 , 79 , 124 , 201 


5868 DATA 69 . 98 . 82 ■ 79 . 68 , 85 ■ 98 . 73 , 82 . 32 


228 


5438 DATA 186 , 32 . 243 , 125 . 187 , 32 . 239 , 285 , 248 , 1 , 218 


5878 DATA 79 . 85 . 32 . 67 , 76 . 69 . 55 . 82 . 32 . 80 


155 


5440 DATA 195 . 89 , 88 , 33 . 128 , 60 , 17 , 91 , 79 . 285 , 289 


5880 DATA 47. 32. 82. 69. 84, 79. 82. 78. 79. 32 


152 


5458 DATA 192 . 88 , 285 . 248 , 1 , 285 , 43 , 8 , 254 , 31 , 235 


5090 DATA 65. 79. 32, 66, 65. 83. 73, 67. 9, 76. 


94 


5468 DATA 282 , 235 , 90 , 254 , 13 , 32 , 244 , 285 , 248 . 1 , 234 


5100 DATA 69 . 78 ■ 68 , 79 . 32 , 65 , 32 , 70 , 73 , 94 


138 


5478 DATA 195 . 228 . 79 , 205 , 44 , 2 , 205 . 53 . 2 , 119 . 108 


5118 DATA 65 , , 71 , 82 , 65 , 86 , 65 , 78 . 68 . 79 . 


147 


5480 DATA 35 . 281 . 26 . 254 , 8 , 200 , 119 , 35 , 19 . 24 , 145 


512B DATA 32 , 32 . 32 , 32 . , 69 , 82 , 82 . 79 . 32 . 


216 


5490 DATA 247 , 33 , 128 , 60 , 17 , 168 , 79 , 285 . 192 . 88 , 177 


5130 DATA 68 . 69 , 32 . 70 , 79 , 82 , 77 , 65 . 84 , 79 


193 


5508 DATA 195 . 162 . 88 . 205 . 201 . 1 , 33 , , 60 , 17 , 186 


5148 DATA 32 . 48 . 66 . 65 . 84 , 65 . 32 , 69 , 78 , 84 


103 


5510 DATA 232 . 78 , 285 . 192 . 88 , 33 , 64 , 68 , 17 , 9 , 202 


5158 DATA 69 . 82 . 32 . 81 , 47 . 32 . 82 , 69 , 84 , 79 


144 


5520 DATA 79 . 285 . 192 , 80 . 201 , 285 , 248 , 1 , 195 , 25 , 151 


5168 DATA 82 . 78 . 79 , 32 . 79 , 85 , 32 . 67 , 76 , 69 


167 


S530 DATA 26 , 255 


5178 DATA 65 . 82 . 32 , 88 , 47 . 32 , 82 , 69 . 84 , 79 


148 


65900 £AD H.,IN,FI:NL*NL*10 


5188 DATA 82 . 78 . 79 , 32 , 65 , 79 , 32 , 66 , 65 , P3 


149 


55818 CS=8 


5198 DATA 73 , 67 , 41 , 8 . 69 , 82 , 82 , 79 , 32 . 68 . 


81 


65020 FOR!=1T01B:REAO A:CS=CS*fi:PQKE IM,A:PRINT359,A? 


5288 DATA 69 . 32 . 67 , 72 . 69 , 67 , 75 , 45 , 83 , 85 


152 


65838 :N=IN*l:IF IN)FI T*€N RETURN 


5218 DATA 77 , 32 . 40 , 69 , 78 , 84 . 69 , 82 , 32 . 80 


131 


65840 NEXT I: READ SO: CS=CS-256«INT.CS/256):IF SOOCS T>€N PRINT 


5220 DATA 47 , 32 . 82 . 69 . 84 , 79 . 82 . 78 . 79 . 32 


152 


"ERRO NA LINHA ";NL:END 


5238 DATA 79 . 85 . 32 . 67 . 76 , 69 , 65 , 82 . 32 , 80 


155 


t.5950 NL=NL-»10:GOTO65810 



programas em linguagem de mrfquina 6 
bastante diferente do formato de urn 
programa BASIC (para maiores lnforma- 
coes, leia o artigo Formato de gravacdo 
em cassere, MICRO SISTEMAS nume- 
ro 21, junho de 1983). Outra diferenca 
e que nao cxiste um comando que per- 
nuta a cnacao de uma salvaguarda de 
uma fita com programa SYSTEM, co- 
mo existe o comando CSAVE para pro- 
gramas BASIC. 

UTILITARIO 
E SUAS VANTAGENS 

utilitano deste artigo fornece o 
meio de produzir copias de fita no for- 
mato SYSTEM. Os melhores programas 
de jogos e utilitanos sao fornecidos em 
fitas gravadas. neste formato, uma vez 
que o uso de linguagem de maquina ou a 
compilacao de programas aumentam a 
velocidade de execucao. 

As fitas compradas no mercado sao 
de preco elevado. Um defeito na fita, 
um descuido qualquer, como, por exem- 
plo, o mau habito de deixar de rebobi- 
na-la apos seu uso, o envelhecimento da 
fita por exposicao a campos magndticos 
ou a fontes de calor, podem provocar a 
perda irremediavel do programa. Como 
este problema ']& 6 conhecido ha' bastan- 
te tempo, alguns fornecedores produ- 
zem seus programas duplicados na mes- 
ma fita. 



Uma solucao precana que pode ser 
adotada e fazer uma copia direta de gra- 
vador para gravador. Contudo. este pro- 
ccdimento. aldm de exigir o uso de dois 
gravadores, tern o inconveniente de re- 
produzir um sinal ja distorcido do gra- 
vador. aumentando a possibilidade de 
que a copia nao venha a ter a qualidade 
suficiente para ser lida. Por outro lado, 
o sinal gerado pelo micro e' de muito 
boa qualidade. Assim. a melhor solucao 
6 trazer o programa para a memdria e 
reproduzi-lo usando o pr6pno compu- 
tador. 

£ importante ressaltar, pordm, que a 
finalidade dada a este utilitario € de rn- 
teira responsabilidade de seu usuario. £ 
extremamente importante observar que 
os programas vendidos no mercado sao 
protegidos por direitos autorais e e" 
proibida a reproduca"o de fitas com fins 
comerciais. 

OBSERVANCES FINAIS 

Este utilitario reproduzexclusivamen- 
te programas no formato SYSTEM. Al- 
guns fornecedores de jogos em cassete 
utilizam o recurso de produzir seus pro- 
gramas em duas partes, uma primeira. 
forcosamente no formato SYSTEM, que 
tao logo 6 carregada, e" lancada, funcio- 
nando como um carregador especial que 
utiliza uma t^cnica diferente de forma- 
tacao na fita, e uma segunda parte, lida 



pel a primeira, que e" en tao o programa 
propriamente dito. Para estes casos, nos- 
so utilitano nSo funcionard. Tudo que 
ele conseguira sera apenas reproduzir 
a primeira parte. 

O utilitario foi testado num equipa- 
mento compativel com o TRS-80 Mode- 
lo III no modo de carregamento em bai- 
xa velocidade (500 bauds) e em um 
TRS-80 Modelo I, ambos trabalhando 
com BASIC nivel II. Sob um sistema 
operacional de disco ele nSo funciona, 
pois, para maior utilizacSo de memo- 
ria, ele 6 carregado onde normalmente 
deve residir o sistema operacional de 
disco e a extensao do BASIC. 

Um cuidado final a ser tornado por 
quern dispoe de apenas 1 6 Kb de mem6- 
ria 6 que este utilitario nao testa a quan- 
tidade de memdria disponi'vel no micro. 
Portanto, se o programa SYSTEM a ser 
reproduzido for muito grande, nao se 
conseguira sucesso na sua reproducao. 
Contudo, nao 6 freqiiente encontrar jo- 
gos ou mesmo aplicativos que ultrapas- 
sem a faixa de 1 a 1 2 Kb de membria. 



Daniel Augusto Martins 4 engenheiro eletrd- 
nico e possui mestrado em Sistemas de Con- 
trole. Trabalha nas Centra is Eletricas do Nor- 
te do Brasil no acompanhamento da imp/an- 
tagao do Sistema de Con trole Supervisor da 
Usina Hidrele"trica de Tucurui. 
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STAA, A. V., Engenharia de 
Programs*, LTC - Livros Tfcnicos 
e Cientfficos Editors S. A. 



| objetivo deste livro 6 apre- 

sentar uma sequencia harmonica e 
consistente de tecnicat e mdtodot 
que visam a const rucao economi- 
ca de programas com elevado nf- 
vel de qualidade. texto se desti- 
na a pessoas com algum conheci- 



mento de programacao e com co- 
nhecimentos rudimentares de es- 
truturas de dados, tais como estu- 
dantes de graduacao e programa- 
dores. 

A linguagem de programacao 
dominada pelo leitor 6 irrelevante, 
bem como o computador e o tit- 
tema operacional utilizados. Ot 
metodos e teeniest ettudadot va- 
lem para qualquer linguagem e 
ambiente de programacao dispo- 
n ive is hoje. Como ot computado- 
ret tornaram-te ferramentat indis- 
pensaveis para um sem-numero de 
aplicacoes, quer tejam comerciait, 
tecnologicas, comando e controle, 
petquita cientffica ou outrat, ette 
livro revette-te de maior impor- 
tancia porque e capaz de assegurar 
que programas venham a ter ela- 
boradot com elevado nfvel de 
qualidade. 



GALANTE, T. P.; POW. E. M.. 

IngISs para Processamento de 
Dados, Editora At let. 

| Ette livro 6 o retultado de tra- 
balho realizado durante va>ios 
anos com alunot do Curto de 
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LOJA: AV. SAO LUIZ, 187 • LOJA 8 - 1.a S/L 

GALERIA METROPOLE 

FONES: 01 1 - 257-61 18 - 259-1503 - SAO PAULO 

SEMPRE NOVIDADES! 

APPLE GRAPHICS GAMES -Coletta 30.000, 

GAMES FOR YOUR TIMEX-SINCLAIR 1000 - Charlton. . . 12.000, 

BASIC PARA ENGENHEIROS E CIENTISTAS- Boratto. . . 3.900. 

GRAFOS E ALGORITMOS COMPUTACIONAIS - Szwarcf iter 7.400, 

HOW TO WRITE AN APPLE PROGRAM- Faulk 30.000. 

GETTING ACQUAINTED WITH YOUR VIC 20 more than 50 

programs - Hartnell 20.000. 

OSEU COMPUTADOR PESSOAL - Waite 5.900. 

TECNOLOGIA DA INFORMAQAO: guia para empretas. geren- 

tes e administradores - Eaton 9.500. 

PRIMEIROS PASSOS NA PROGRAMACAO EM LINGUA- 
GEM DE MAQUINA especialmente para Tk e CP2O0 - Silveira . 5.000, 

APPLE II COMPUTER GRAPHICS - Williams 40.000. 

MACHINE LANGUAGE PROGRAMMING MADE SIMPLE 

FOR SINCLAIR & TIMEX TS1000 - Melbourne 30.000. 

DOCUMENTAQAO DE SOFTWARE - Lomax 3.200. 

SISTEMAS OPERACIONAIS PARA MICROCOMPUTADO- 

RES - Dahmke 6.900. 

GUIA DE REFERFiNCIA CP/M - Ingraham 2.000, 

GUIA DE REFERFiNCIA VISICALC - Wilson 2.000. 

GUIA DE REFERfiNCIA APPLE II Gifford 2.000. 

TRICS FOR VICS - Roberts 23.000, 

IBM BASIC FOR BUSINESS AND HOME - Funkhouser .... 30.000, 
CURSO DE BASIC vol. 1 : para TK. CP200 e outros com teoria, 

exemplos e exerefcios retolvidos p/iniciantes • Abreu 4.200, 

GAMES FOR YOUR TIMEX-SINCLAIR 2000 -Shaw 12.000, 

HOW TO PROGRAM YOUR ATARI IN 6502 MACHINE 

LANGUAGE - Roberts 16.000, 

GUIA DE LINGUAGENS DE COMPUTADORES - Helms . . . 3.900, 

ARCADE GAMES FOR THE VIC-20- Hartnell 26.000. 

GERENCIA DE BASES DE DADOS PARA MICROCOMPU- 

TADORES - Brooner 4.990, 

THE COMPUTER CONTROLLER COOKBOOK: build your 
own one-of-a-kind controllers for Apple and Atari home com- 
puters - Riley 26.000, 

CODIGO DE MAQUINA PARA TKeCP 200- DelioS. Lima . 9.000. 
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PEDIDOS: CAIXA POSTAL 9280 

CEP 01051 - SP. . 



IBjQMft MMD MUM* 

OIMETH MNMNM 

INGliSPARA 

PROCESSAMENTO 
DE DADOS 




Processamento de Dados, na disci- 
pline Ingles Tecnico. Objetiva pre- 
parer estudantes e prof ittionait de 
Processamento de Dados para o 
entendimento de textot em ingles 
referentes a Informatica. 

£ essencialmente diddtico e a 
apresentacao da materia obedece 
a uma sequencia natural, que pos- 
sibilita. assim, a introducao gra- 
dual dot termos tecnicos mait 
usadot em computacfo. O conteu- 
do de cada unidade e a linguagem 
tecnica que mait frequentemente 
aparece em publicacdes e em ma- 
nuals desta area, tendo tido interi- 
dos exerefcios que visam a desen- 
volver no leitor a habilidade para 
entendimento de textot. 

At leituras inclufdas no final 
de cada unidade abordam temat 
relacionadot ao que exitte de mait 
moderno no campo da Informatica. 
Um glossario de mait de 300 pala- 
vrat, com ot termot mait utuait 
em computacao, e uma lista de 
siglas e abreviacoes sab apresenta- 
dos na parte final, permitindo ao 
leitor a tua pronta consulta quan- 
do estiver lendo o texto, fazendo 
exerefcios, ou mesmo revisando as 
unidades. 



GONICK, L., Introducao llustrada 
a" ComputacSo (com muito 
humor\), Editora Harper & Row 
do Brasil Ltda. Treduzido sob 
iniciativa da Itautec. 



| A computacfo ainda 6 encara- 
da, por muita gente, como algo 
esote'rico e complicado, cujos 
prinefpios estariam numa esfera 
de compreensffo acima do que se 
pode alcancar. A fim de contri- 
buir para a mudanca dessa posi- 
c3o, a Itautec esta* lancando o li- 
vro "IntroducSo llustrada a Com- 
putacSo", traduzido do original 
norte-americano de Larry Gonick. 
Usando a linguagem das histd- 
rias em quadrinhos e incluindo ge- 
nerosas doses de f ino humor. Go- 
nick mostra que, desde a prt-his- 



toria, o homem tern a preocupa- 
cao de con tar coisas e registrar 
tanto essas contas como os fatos a 
ela relacionados. Em suma, desde 
a Idade da Pedra o homem esta" 
computando e montando Banco 
de Dados, seja em ossos, tabuletas 
de argila, papiro, papel ou fitas e 
discos magnet i cos. 

Com o mesmo humor, o livro 
expde os conceitos de logica que 
o computador usa para tomar de- 
cisdes segundo as instrucfies rece- 
bidas e explica os prinefpios de 
funcionamento da m^quina em 
poucas figures com textos de fa"- 
cil compreensffo. 

Enfim, 4 um livro com o qual 
o leigo em Informa'tica podera" ini- 
ciar-se nessa 4rea e os ja iniciados 
encontrara"o doses adicionais de 
bom humor. 




PEDROSO.E. T..TEIXEIRA. E. 
R.; GASPAR. L. R. S., Elaboracio, 

AnaVise a Racionalizacao de 
Formula" rios, Editora Atlas. 

| Este texto focaliza um dot 
mais importantes segmentot da 
area de Organ izacSo. Sistemas e 
Metodos a : a elaboracio, a analise 
e a racionalizacao de formularios. 
Na"o pretende, portanto, focalizar 
a referida area como um todo, 
mas sim um de teut mait relevan- 
tet aspectos. A ideia da publica- 
cao foi consequincia de pesquisa 
efetuada por seus autores junto a 
alunos de Administraca"o de Em- 
presas de diversas universidades de 
Sao Paulo e de solicitacdes de 
outros tantos colegas de prof issao. 

Sendo assim, este texto e con- 
siderado um dos primeiros a ser 
escrito no Brasil sobre o assunto. 
Seus autores, profissionais libe- 
rals, somam as suas experiencias 
profissionais experiencias didati- 
cas adquiridas em programas de 
treinamento e em cursos regulares 
de graduacao em Administracao. 
Consequentemente, o texto adota 
uma linguagem dare, simples, 
objetiva e acessfvel, tanto a profis- 
sionais como a estudiosos da area. 
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CURSOS DE APERFEIPOAMINTO 



MAIS SUCESSO n^RAVOCE! 



Comece uma nova fase na sua vida profissional. 

Os CURSOS CEDM levam ate voce o mais moderno ensino 

tecnico programado e desenvolvido no Pais. 



CURSO DE ELETR&NICA DIGITAL 
E MKROPROCESSADORES 



Sao mais de 140 aposnlas com mformacoes compleias e sempre 
atuahzadas Tudo sobre os maiS revolucionino CHIPS E voce 
recebe. alem de uma solida formacSo tednca. KITS elaborados 
para o seu desenvolvimento pratico. Garanta agora o seu futuro 
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CEDM 20 KIT 
de Ferramentas. 
CEDM 78 KIT 
Fonte de Alimentacao 
5v/1A. CEDM 35 KIT 
Placa Experimental 
CEDM 74 KIT 
de Componentes 
CEDM 80 

MICROCOMPUTADOR 
Z80 ASSEMBLER. 




CURSO DE 
PROGRAMAtfO EM BASK 



Este CURSO, especialmente programado. oferece os 
fundamentos de Linguagem de Programaca*o que domma o universo 
dos microcomputadores. Dmjmicoe abrangente. enstna desde o BASIC 
basico ate o BASIC mais avancado. inclui'ndo nocoes basic as sobre 
Manipulacao de Arquivos. T6cnicas de Programacao. Sistemas de 
Processamento de Dados. Teleprocessamento, Multiprogramacao e 
Ticmcas em Linguagem de Maquina. que prbporcionam urn grande 
conhecimento em toda a area de Processamento de Dados 




KIT CEDM Z80 

BASIC Cientifico 

KIT CEDM Z80 

BASIC Simples 

Gabanto de Fluxograma 

E 4 KIT CEDM SOFTWARE 

Fitas Cassete com Programas. 



CURSO DE 

eletronica e Audio 



MGtodoS novos e in^ditos de ensino garantem um aprendizado 
pratico muito melhor. Em cada nova liga"o. aposnlas ilustradas 
ensmam tudo sobre Amplificadores. Caixas Acusticas. Equalizadoies. 
Tocadiscos, Sintonizadores AM/FM. Gravadores e Toca-Fitas. Capsulas 
e Fonocaptadores, Microfones. Sonorizacao. Instrumentacao de Medidas 
em Audio. T^cnicas de Gravacao e tamWm de ReparacSo em Audio 




CEDM-1 - KIT de Ferramentas. CEDM 2 KIT Fonte de AlimentacSo 
♦ 15 15/1A. CEDM3 KIT Placa Experimental 
CEDM 4 KIT de Componentes. CEDM 5 - KIT Preamplificador 
Estereo. CEDM 6 KIT Amplificador E stereo 4 Ow 



Voce mesmo pode desenvolver um ritmo proprio de estudo. A lin- 
guagem simplificada dos CURSOS CEDM permite aprendizado facil. E 
para esclarecer qualquer duvida, o CEDM coloca a sua disposicab uma 
equipe de professores sempre muito bem acessorada. Alem disso, voce 
recebe KITS preparados para os seus exercfcios praticos. 

Agil, moderno e perfeitamente adequado a nossa realidade, os CUR- 
SOS CEDM por correspondencia garantem condicdes ideais para o seu 
aperfeicoamento profissional. 

GRATIS 

Voce tambem pode ganhar um MICROCOMPUTADOR. 

Telefone (0432) 23-9674 ou coloque hoje 

mesmo no Correio o cupom CEDM. 

Em poucos dias voce" recebe nossos catalogos de apresentacao. 



p{ jM Avenida Sfo Paulo. 718 - Fona (0432) 23-9674. 
UWUI I CAIXA POSTAL 1642 -CEP 86100 Londrina - PR 
CURSO DE APERFEIQOAMENTO POR CORRESPONDENCIA 

Sollclto o mais rapido possfvel informecoes sem compromisso sobre o 

CURSO de 

Noma 

Rua 

Cidade 

Bairro CEP 

MS 



Tamanho nao e documento. £ o que provam os micros da linha Sinclair: simpies 
e baratos, mas poderosos, eles ji ensinaram muita gente a programar 



Os pequenos 
notaveis 



Os microcomputadores 

revolucionaram a 

Informdtica ao permitirem 

- devido ao seu baixo custo 

efacilidade de operacdo 

- o usoa nivel individual e 

por pessoas leigas no 

assunto. O merito, contudo, 

de tornar o computador um 

instrumento realmente 

popular, acessivel a grandes 

segmentos da sociedade, 

cabe ao ingles Give Sinclair, 

que projetou e fabricou o 

ZX80 e, posteriormente, o 

ZX81, este considerado uma 




obra-prima no genero. 
Com preco abaixo de 
USS 100, um manual 
auto-explicativo que 
permitia a qualquer pessoa 
escrever programas 
razoavelmente complexos 
em BASIC, e uma variedade 
defuncoes que pouco ou 
nada ficavam a dever aos 
sistemas de maior porte, 
esses equipamentos logo 
transformaram-se num 
sucesso de vendas na 
Inglaterra, Estados Unidos 
e, dai, no resto do mundo. 



No Brasil a fami'lia Sinclair serviu de 
espelho a produtos de cinco empresas: 
Microdigital (TK80. TK82-C, TK83 e 
TK85), Prol6gica (NE-Z80. NE-Z8000 e 
CP-200) e, mais recentemente, COSE (Apply 
300), Engebras (AS- 1000) e Ritas do Brasil 
(Ringo). 

Os primeiros a serem lancados foram, res- 
pectivamente, o NE-Z80 e o TK 80. Virtuais 
replicas do ZX80 em hardware e software, esses 
equipamentos tiveram vida breve, pois logo 
foram substitui'dos pelos NE-Z8000 e TK82-C, 
que emulavam o ZX81 Essa emulacao, contu- 
do, dava-se apenas a nivel de software, uma 
vez que em hardware essas maquinas permane- 
ciam basicamente um ZX80 adaptado para 
rodar o sistema operacional do ZX81. Essas 



adaptacoes, alias, contrariavam bastante as 
boas tecnicas de projeto de circuitos, pois 
eram cheias de jumps (com o consequente 
excesso de fios), integrados com pernascorta- 
das. etc. 

Com um circuito melhor acabado que o 
82-C, o TK85, quando saiu, era o Sinclair na- 
cional de maior memoria interna, com uma 
versao de 48 Kbytes RAM, e trazia ainda 
como novidades algumas sub-rotinas para gra- 
vacao/recuperacao em fita em alta velocidade. 

O CP-200, que chegou as lojas aproxima- 
damente na mesma epoca que o TK85, no 
ini'cio do ano passado, apesar de ser construi- 
do com tecnologia TTL e ter em comum com 
o ZX81 apenas o BASIC Sinclair, representou 
uma evolucao em termos de projeto, uma vez 



que apresentava um circuito bem desenhado, 
sem as adaptacoes que caracterizaram os pri- 
meiros modelos tanto da Prol6gica quanto da 
Microdigital 

TK83, lancado em outubro ultimo, foi o> 
primeiro ZX81 legttimo, cujo circuito 6 cons- 
titui'do de apenas quatro chips, um deles sen- 
do a famosa ULA, projetada por Give Sinclair 
para cumprir as funcoes de 18 integrados, os 
quais substituiu. 

Ja os micros mais recentes, como o Apply 
300 e, principalmente, o AS-1000 e o Ringo, 
seguem uma nova tendSncia do mercado brasi- 
leiro de pequenos equipamentos, que consiste 
em oferecer produtos de baixo preco compa- 
ti'veis com o BASIC Sinclair, mas que apresen 
tarn possibilidades de expansao capazes de 



32 



MICRO SISTEMAS, fevereiro/84 



Ihes proporcionar urn desempenho antes pos- 
sfvel somente aos sistemas de maior pone 

UCP EMEMORIA 

Todos os equipamentos nacionais. a 
exemplo do Sinclair original, utilizam 
o microprocessador Zilog Z80A. com 
clock de 3.25 MHz. £ uma velocidade razoa- 
vel para um micro de 8 bits, mas nos equipa- 
mentos Sinclair ela f ica um pouco prejudica- 
da porque, devido ao pequeno numero de in- 
tegrados. a UCP torna-se diretamente respon- 
savel por toda a supervisao e controle do siste- 
ma, al6m da sua tarefa basica, que e o proces- 
samento logico-aritm^tico. 

Em termos de mem6ria. os nossos equipa- 
mentos encontram-*e em posicao bastante 
confortivel. seja em relacao a famflia Sinclair 
ou a outros micros, destacadamente os TRS. 
Os de menor capacidade — TKs 82-C e 83 - 
v6m de fabrica com 2 Kbytes RAM, que e 
pouco mas e o dobro da capacidade standard 
do guru ingles, o ZX-81, que vem de fabrica 
com apenas 1 K. E todos — a exceca"o somen- 
te do CP-200, que \a vem de fabrica com 16 K 
RAM e nao admite expansoes - podem che- 
9ar ate os 48 K RAM. 

TECLADO 

Os teclados sao um dos pontos que 
mais caracterizam esses equipamentos, 
em relacao aos sistemas maiores. A uti- 
lizacao de um teclado profissional, como os 
que encontramos nos Apples e TRS-80. torna- 
se mviavel nos equipamentos de linha Sinclair 
basicamente por dois motivos: o preco (um 
bom teclado eletrdnico profissional pode 
custar tanto ou mais que o preco final de um 
desses micros) e o tamanho, incompatfvel 
com as dimensoes desses equipamentos. 

Essas limitacoes levam os fabricantes a 
adotarem tecnologias mais simples e baratas 
mais simples desses teclados e o de membra- 
na no qual a matriz de chaves que o constitui 
e recoberta por uma peli'cula de material pl4s- 
tico com as "teclas" impressas. Sua grande 
vantagem e a durabilidade pois. por ser selado 
e nao ter partes mbveis, nao e prejudicado pe- 
la poeira e nao tern desgaste mecSnico. Uma 
variacao mais sofisticada desse tipo e o tecla- 
do de bolha, que incorpora, entre a chave e a 
membrana, uma calota de material flexi'vel 
que, quando pressionada, fecha o contato. 
H6 ainda os teclados tipo calculadora - como 
o que equipa o CP-200 -, os de borracha 
condutiva e os do tipo "chicletes", que os 
fabricantes preferem chamar pelo nome mais 
elegante de "semi-profissional". 

Do ponto de vista operacional, os teclados 
de membrana sa"o os mais lentos e menos con- 
fiaveis. requerendo grande atencao no seu ma- 
nuseio. usuario de um micro equipado com 
esse tipo de teclado desde cedo aprende que 
deve digitar com cuidado, com a ponta do 
dedo e no centro da tecla. E nunca e demais a 
precaucao de dar uma olhadinha no video 
para ver se o carater digitado esta mesmo Id. 
Hi tambem quern prefira digitar os seus pro- 
gramas em FAST. Assim, o tremor da tela, 
percebido de rabo-de-olho enquanto o usuario 
se concentra no teclado, e uma garantia de 
que o carater entrou. Alem da fadiga visual 
(atencao dividida entre teclado e vi'deo) e dos 
bracos e dedos (que devem permanecer ten- 
sos), ha ainda um stress psicologico causado 
por nao se sentir no tato - ou mesmo auditi- 
vamente — o f uncionamento das teclas, cansa- 
co esse que cresce proporcionalmente ao ta- 
manho do programa a ser digitado. 

No teclado de bolha (ut'lizado no 
AS-1000), apesar de suas limitacoes, essa si- 
tu acSo melhora um pouco. A comecar pela 
sensacao tactil de se estar realmente pressio 
nando uma tecla e pelo "click" que se ouve 
ao fechar o contato. A confiabilidade aqui e 




A obra-prima de Clive Sinclair: o ZX81 

maior, e a rapidez de operacao acentua-se. a 
medida que diminui o cansaco. 

A eficiencia do teclado do TK85, por sua 
vez, na"o e tao grande quanto sugere o seu 
bonito design. As teclas sao grandes e a legibi- 
lidade e bastante boa, mas ha um problema: se 
se nao forem pressionadas exatamente no cen 
tro, as teclas tendem a prender embaixo, obri- 
gando o operador a puxa-las de volta para a 
posicao normal, o que compromete a veloci- 
dade da digitacao. De maneira geral, contudo, 
esse teclado e mais rapido e confortavel que o 
de membrana. 

Ja o teclado tipo calculadora usado no CP- 
200 e bastante confiavel e eficiente Ele nao 
prende e muito dif icil o computador nao va- 
lidar o carater de uma tecla pressionada (salvo 
em raros casos de muito ma* operacao) e pro- 
porciona ao usuario a agradavel sensacao de 
estar usando um teclado de verdade. alem de 
tornar mais rapida a digitacao. A unica restri- 
ct mais signif icativa que se pode fazer a esse 
tipo de teclado refere se ao tamanho das 
teclas, muito pequeno. 

Quanto aos modelos tipo chicletes, apresen- 
tam rapidez e confiabilidade semelhantes ao 
do tipo calculadora, com a vantagem adicional 
de que as teclas sao maiores. Esse teclado e 
utilizado por dois micros nacionais: o Apply 
300 e o Ringo 

VIDEO 

Imagens em preto e branco, em baixa reso 
lucao. com sai'da apenas para TV comum 
via modulador RF, sao as caracterfsticas 
basicas de vi'deo de todos esses equipamentos. 
Todos tern 22 linhas (mais duas reservadas 
para mensagens de status do sistema, e asquais 
o usuario normalmente nao tern acesso) por 
32 colunas e a baixa resolucao deve-se ao fato 
de que nos equipamentos de linha Sinclair so 
se pode lidar com caracteres inteiros, nao sen 



Primeiro descendente national, 
o NE-Z80 durou pouco 

do possi'vel manipular os pontos que corn- 
poem esses caracteres (para uma ideia mais 
detalhada a osse respeito, veja o artigo Arte e 
te"cnics na tela do computador, MS n9 27. 
pag. 10). Essas limitacoes, contudo (e como 
mostra o artigo citado), nao impedem que se 
faca muita coisa em termos de desenhos e gri- 
ficos. E para os mais exigentes, ja* comecam a 
ser lancadas na praca placas de circuito que 
liberam os bits dos caracteres. permitindo. 
assim, manipular mais de 40 mil pontos na 
tela. 

A utilizacao de modulador de RF prejudi- 
ca um pouco a qualidade da imagem (muito 
instavel, sobretudo nos Prologica NE-Z8000 
e CP-200) e a instalacao de vi'deo direto, inje- 
tando o sinal diretamente no amplificador de 
vi'deo da TV, sempre traz bons resultados. O 
modo de operacao do video - normal ou re- 
verso - e outro aspecto que merece destaque. O 
fundo branco (caracterfstico dos TKs) cansa 
mais a vista e prejudica a leitura do que o fun- 
do preto (dcs Prologica), porpermitirque osci- 
lacoes da rede eletrica e outras interferencias 
passem a fazer parte da imagem. A solucao 
para esse problema e instalar uma chave inver- 
sora de vi'deo que permita ao usuario escolher 
o modo de operacao que julgue mais conve- 
niente Ambas essas alteracoes - vi'deo direto 
e chave inversora - sao fa'ceis de fazer e na"o 
custam muito, mesmo quando realizadas 
numa oficina de assistencia tecnica. No Ringo 
— no modelo standard apresentado na III Fei- 
ra de Informatica - a inversao de vi'deo e feita 
atraves de uma tecla especi'fica para esse fim. 

DESIGN E ACABAMENTO 

Em termos de visual os equipamentos 
nacionais melhoraram bastante desde os 
tempos herdicos do NE-Z80 e do TK80. 
Estes, juntamente com os seus sucessores dire- 
tos - NE-Z8000 e TK82-C -. mais pareciam 




NE- 18000 



TK80: tambtm teve vida breve 
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OS PEQUENOS NOTAVEIS 



protbtipos de laboratbrio, de linhas toscas e 
feias, do que propriamente produtos indus- 
trials vendidos ao publico. O CP-200, lancado 
em outubro de 1982 (apesar de s6 chegar as 
lojas meses depois), foi o primeiro desses ecui- 
pamentos nacionais a realmente ter uma apa- 
rencia de computador. Gabinete moldado em 
poliuretano, linhas suaves e harmoniosas e cor 
discrete, alem da fonte interna que diminuiu o 
numero de conexoes e de fios dispersos na 
estacao de trabalho fizeram do CP-200 um 
verdadeiro produto'acabado. Seu unico peca- 
do aparente: o tamanho, exageradamente 
grande para um micro de sua classe. e que o 
torna possivelmente o maior Sinclair do 
mundo. 

Em seguida veio o TK85, com um gabinete 
ben- semelhante ao do Spectrum (apesar de 
nada ter a ver com esse modelo em termos ele- 
trdnicos e operacionais — veja quadro sobre 
Give Sinclair). £ talvez o mais bonito dos 
micros nacionais dessa classe: dimensoes redu- 
zidas, teclas grandes e legiveis, muito leve e 
facil de transporter. Nao incorpora, porem, a 
fonte de alimentacao, que e a mesma dos 
outros TKs. 

Ja o TK83 veio para corrigir as falhas est6- 
ticas do modelo 82 -C, o qual substitui. £ um 
equipamento de linhas simples, mas agrad£veis 
de ver Em vez do preto fosco do 82-C, um 
suave champagne. Um teclado bem posiciona- 
do; peso e dimensoes reduzidos. 

Quanto ao Apply 300, ao AS- 1000 e ao 
Ringo, se nao chegam a impressionar pela 
beleza do seu design,nSo desagradam ao olhar. 
As linhas sao bastante simples e despojadas, 
sem grandes variacoes no relevo do gabinete, 
cores neutras, com os teclados ocupando a 



maior parte do espaco dispomvel na parte 
superior do gabinete. As fontes e as expansoes 
de memdria localizadas internamente ajudam 
a reforcar a funcionalidade desses aparelhos. 



POUCO SOFTWARE 

Programas — de base, utilitarios e aplicati- 
vos - de boa qualidade e com variedade 
de fornecedores sio artigo em grande fal- 
ta no mercado nacional de equipamentos com 
Idgica Sinclair. Apesar de a situacao do soft- 
ware nao ser tao dramatica quanto a do hard 
ware — onde na"o existe praticamente nada em 
termos de perifericos possfveis de serem aco- 
plados a esses equipamentos — , o nosso pro- 
gresso nesse campo encontra-se inexplicavel- 
mente (pois ha mais de 100 mil dessas maqui- 
nas instaladas no pais) na "idade da pedra". 

Uma rapida olhada nos anuncios das revis- 
tas norte-americanas pode dar-nos uma ideia 
das possibilidades de uso dessas ma"quinas em 
aplicacoes ditas se"rias num sem-numero de 
campos de atividade Esses programas incluem: 

• Bancos de dados tipo Pro-File; 

• Processadores de texto; 

• Aplicacoes de matemdtica, ffsica, astro- 
nomia etc.; 

• Contabilidade, controle de estoque, fo 
lha de pagamento, mala direta. gerencia 
financeira. analise de investimentos em Bolsa 
de Valores. controle de vendas. calculo de 
fluxo de caixa; 

• Histbrico medico; 

• Planejamento e controle de campanha 
publicitaria, 

• Compiladores de diversas linguagens; 

• Uma variedade de programas utilitarios; 



• E alguns aplicativos ate certo ponto 
curiosos, como aquele que exercita nas pes- 
soas o conhecimento da Bi'blia, o curso para 
tornar o usua'rio um campeao nas mesas de 
Blackjack, nos cassinos. ou ainda aquele 
outro. "cientificamente projetado" para o 
calculo de chances de vitbria em corridas de 
cava I os. 

Praticamente nada disso existe no Brasil. 
Ninguem desenvolve e nem os piratas. sempre 
tao ativos, mostram-se capazes de oferecer 
bons produtos, mesmo que "traduzidos". A 
pirataria, alias, tem-se constituido num ele- 
mento inibidor da producao de bom software 
para esses equipamentos, uma vez que muita 
gente boa, com capacidade para desenvolver 
dtimos programas nao o fazem (ou, quando 
fazem, nao divulgam), certo* de que o seu 
trabalho ira remunerar outros bolsos mais 
espertos 

Se esse receio. por um lado, tern o seu 
fundamento, por outro 6 bom nao esquecer 
que uma marca de software que consiga fir- 
mar no mercado uma imagem de seriedade e 
qualidade sempre ira desfrutar junto ao consu 
midor de uma confianca maior do que aquelas 
f itas com capa em xerox e sem documentacao 
alguma vendidas em muitas lojas por esse 
Brasil afora. E algumas empresas ja* descobri- 
ram e estao aplicando uma fbrmula para con- 
tra atacar os piratas: produtos de boa qualida- 
de (bons programas, gravados em equipamen- 
to profissional, bem documentados e com aca- 
bamento realmente industrial) a baixo preco e 
vendidos em larga escala. 

Uma dessas empresas e a JVA Microcom- 
putadores Ltda., software-house carioca que 
produz programas para Sinclair sob a marca 
Ciberne. Jose Eduardo S. Neves, diretor da 
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Todas as categorias de Software 



Diversoes 
e Jogos 
Pessoais 



Uso Caseiro 

Comerciais 

Graficos 



E... f mais de 4000 originais 



que voce pode retirar 
e levar para 
sua casaou 
empresa para 
usa-lo a vontade. 



Para os principals 
micros do mercado: 
TK82, TK83, TK85, 
TIMEX/SINCLAIR, 
CP200, CP300, CP500, 



Educacionais 
Profissionais 

Cientificos 



TRS80 Mod. Ill, 
UNITRON, MAXXI, 
Microengenho, 
Apple e Similares, 
Sistema 700 e Superbrain. 



Voo 
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Voce pode consular pessoalmente os catalogos de Software ou solicitar Informacdaa palo Corroio 

. Brigadeiro Faria Uma, 1390 - 8f Andar - Cj. 82 - CEP 01462 - Tela.: C011) 814^682, 813-6407 a 210-1251 - Sao Paulo - SP 
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TK82-C. tern duvida. o mais vendido 



JVA, fala sobre alguns problemas que afetam 
a sua empress e, de resto, diversas outras fir- 
mas que operam de maneira semelhante no 
setor. 

As software-houses, queixa-se Eduardo, 
enfrentam dois grandes obstaculos ao desen 
volvimento do seu trabalho. De um lado. ex- 
plica ele. encontra-se a atitude dos fabricantes 
de hardware que "escondem todas as informa- 
^6es sobre os equipamentos. Nao dao detalhes 
tecnicospra" ninguem: 6 mais facil conseguir as 
informacoes na Inglaterra", onde se localize a 
Sinclair 

A outra dificuldade reside no fato de que 
"as pr6prias lojas pirateiam o que o pessoal 
faz", e quando a software-house negocia a 
comercializacSo dos seus programas com essas 
empresas, "nao se sabe nunca se se esta lidan- 
do com um amigo ou com um inimigo". 

Nos Estados Unidos, onde os fabricantes 
nao fazem segredo sobre suas maquinas, as 
grandes produtoras de soft combatem os pira- 
tas com a rapidez: apos uma campanha publi- 
citaria macica para despertar o interesse. Ian- 
cam o produto em tiragens astronomicas por 
todo o pai's e, antes que ascdpias oroliferem, 
\& receberam de volta, com lucro, o investi- 
mento feito. Enquanto isso, novos programas 
vao ficando prontos para ser comercializados 
da mesma forma. 

Ja no Brasil 6 dif fcil fazer isso. tanto pela 
reduzida escala do mercado, quanto pela pe- 
quena capacidade financeira das empresas, 
que nao podem fazer uma quantidade muito 
grande de cdpias e distribui'-las em ambiio 
nacional num curto espaco de tempo. 

A falta de recursos para manter equipes de 
alto nfvel (e. portanto, bem pagas) constitui- 
se, segundo essas empresas, noutra dificuldade 



para o desenvolvimento de bom software na- 
cional. A solucao encontrada por diversas des- 
sas firmas para manter a sua presenca no 
mercado com uma variada linha de produtos 
tern sido a de traduzir programas estrangeiros, 
procurando melhora los e adaptd-los a nossa 
realidade e, sempre que possfvel, acrescentar 
programas desenvolvidos aqui. 

Quanto a pirataria, as soft -houses vem pro- 
curando conscientizar o usuaVio das vantagens 
de adquirir produtos bem-feitos e com garan- 
tia, enquanto oferecem uma margem maior de 
comissao aos revendedores. 

Os jogos ainda se constituem na esmagado 
ra maioria dos softs vendidos, mas ]& come- 
cam a surgir outros tipos de programas, so- 
bretudo utilitairios, tais como renumerador de 
programas. Assembler/Disassembler, rotinas 
para gravacao em alta velocidade. rotinas de 
SCROLL, etc. 

Um ponto curioso refere-se aos fabricantes 
de micros. Ao contrario do que dizem os 
usuarios, a maio.ia dos fabricantes considera 
satisfat6ria — quantitative e qualitatlvamente 
— a oferta de programas dlsponfveis no mer- 
cado brasileiro. Ricardo Tondowski, da Micro- 
digital, chega a afirmar que na Europa nin- 
guem tern software para equipamentos de 2 
Kbytes, em termos de qualidade e quantidade. 
como no Brasil. Wagner Codonho, da Ritas, 
discorda desse ponto de vista e diz que a falta 
de soft levnu a su» empresa a produzir cartu- 
chos de programas Esses cartuchos contem 
programas gravados em ROM e funcionam 
como uma especie de expansao de mem6ria. 
bastando conecti-lds ao micro para executar 
os programas. 

A Microdigital atua na produced de soft- 
ware atravds de uma'empresa associada, a Mul- 



COMPUTERLAND NAO VENUE SO MICRO. VENDE TAMBEM 
QUE FAZ MICRO FUNCIONAR: SOFTWARE APLICATIVO. 
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Para fazer um micro funcionar, nao basta aproveitar uma oferta de 
liquidacao e uma tomada na parede micro que voc6 compra na 
Computerland vem equipado com esses itens: 

1 - Computerland Systems: um departamento que garante a voce o 
maior numero de opcdes em software aplicativo da praca. 

2 - Assessona especializadapara expansao e integragao de pefifericos. 

3 - Garantia de Assistencia Tecnica Gratuita por 1 ano, e s6 voce exigir 
seu Certificado de Garantia Computerland no ato da compra. 

Esses itens nao sao opcionais ja estao inclufdos no preco. Mesmo 
nas ofertas especiais que anunaamos nos jornais de domingo 
Computerland aceita todos os cartoes e abre seu credito pelo telefone 
Ligue pedindo um representante tecnico em seu escritdno 



Depois da Computerland, pagar para ficar sozmho com um micro, 
realmente, e o pior negocio do mundo. 
Matriz. Sao Paulo - Av. Angelica, 1 996 - Tel.. (01 1 ) 231 -3277 
Telex (011)36271 -Filial: Ibirapuera - Av dos Imares, 134 
Tels.. 531 -4498/531 -51 97 - Filial: Campinas - Av Barao do Itapura. 91 7 
Tels : (0192) 32-4330/31-8498- Filial: Rio- Praia do Botafogo, 228 
Ij. 114 -Ed. Argentina -Tel: (02.) 551 -8942 
Abertas ate as 20:00 hs Estacionamento prOpno 
Entregamos em todo o Brasil pelo reembolso Vang-Vasp 

Compuleilcind 




OS PEQUENOS NOTAVEIS 



tisoft (que substituiu a antiga marca Micro 
soft), enquanto que as demais (inclusive a 
Ritas, tambem prod u tor a) mostram-se interes- 
sadas em credenciar software-houses para o 
desenvolvimento de programas. 

perifericos 

Arespeito dos perifericos para eqjipa- 
mentos Sinclair, ha que se fazer a dis- 
tincao entre as possibilidades de aco 
plamento, que sa"o praticamente ilimitadas — 
isto e, com a devida interface um micro de 
linha Sinclair aceita qualquer periferico que 
qualquer outro computador possa aceitar, 
resguardadas, naturalmente, as compatibilida- 
des de porte do equipamento (nao se pode, 
por exemplo, pendurar um disco n'gido de 
300 MB num TK. . .) — e as opcdes dispom- 
veis no mercado brasileiro que, no momento, 
praticamente inexistem. 

Para se ter uma ideia do que j* e comercia- 
lizado no mercado norte americano, basta dar 
uma outra olhadela nas revistas especializadas 
de la Tomemos como exemplo a revista Sync, 
voltada para os usu*rios desses equipamentos. 
Em sua edicao de novembro/dezembro 1983 
vemos anuncios dos seguintes produtos: 

• Sistemas para processamento de texto 
similares ao famoso Word Star, com reforma- 
tacao automatica de paragrafos, controle pie- 
no de cursor e caracteres ASCII maiusculos e 
mlnusculos. entre outras facilidades; 

• Teclados dos mais variados tipos. quanti- 
dade de recursos e precos; 

• Diversos racks para embutir o compu- 
tador, instalar teclados e expansoes; 

• Acionadores de disquetes de 5 1/4", com 
respectivas interfaces; 
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• Interfaces para CP/M; 

• Placas para alta resolucao, som e at* ge- 
racao de cores; 

• Interfaces analogico/digital-digital/analb- 
gico (AO/OA) para aquisicao de dados e con- 
trole de processos; 

• Modems e demais equipamentos para 
comunicacao de dados; 

• Sintetizadores de voz; 

• Geradores program*veis de caracteres; 

• Placas de mem6ria RAM nao volatil para 
armazenamento permanente de dados e sub- 
rotinas; 

• Placa para uso de caneta de luz; 

• E mais uma serie de outros aparelhos que 
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A vitrine de soft da Microdigital. 
a ipoca do TK82-C 

permitem, entre outras coisas, depurar e que- 
brar a protecao de programas, melhorar a lei- 
tura/gravacao de fitas, conectar diversos peri- 
fericos etc. 

No Brasil, a situacao ainda * bem diferen 
te. Praticamente inexistem produtores inde- 
pendentes desses perifericos e os fabricantes 
dos micros pouco fazem nesse sentido. Ha" 
tamWm os produtos-fafitasmas. que s6 exis- 
tem nos anuncios coloridos, nunca nas prate- 
leiras das lojas. 

Quanto aos produtores independentes, 
uma pesquisa nos mercados de Rio e Sao Pau 
lo detectou apenas os dispositivos de auxilio 
de leitura/gravacao de fitas cassete Tig 
Loader (Cr$ 18 mil), da Tigre, e CMS/ZX 
da Polimicro, e as placas da Tplak: 
IOPLAK (para controle de aparelhos externos 
- Cr$ 60 mil), BIPLAK (placa de bip - 
Cr$ 50 mil), CARAPLAK (geradora de carac- 
teres - Cr$ 82 mil ) e PLAKMAE (para cone- 
xao de perifericos - Cr$ 45 mil). Fora isso, 
o engenheiro Bernhard Wolfgang Schdn, de 
Sao Bernardo do Campo. instala hardware de 
caracteres especiais por Cr$ 25 mil, enquan- 
to que. em Porto Alegre. a Digital Compo- 
nentes Eletronicos vende placas para alta reso- 
lucao. 

Os equipamentos mais novos (Apply 300, 
AS-1000 e Ringo) \& oferecem opcao de sai'da 
para impressora serial ou paralela, a Prol6gica 
vincula a interface paralela a compra da im 
pressora P-500 (Cr$ 1 milhao 400 mil), de su; 
fabncacao e a Microdigital, apos o fiasco da 
TK-Printer muito anunciada, mas que nao 
chegou a ser produzida, promete colocar no 
mercado uma interface paralela para o TK-85. 

Os perifericos oferecidos pelos fabricantes, 
de acordo com question*rio distribui'do entre 
essas empresas por MICRO SISTEMAS, sa"o os 
seguintes: 

- Prologica (CP-200): Joy Control (con- 
trolador de jogos. vendido a Cr$ 35 mil), pla- 
ca de alta resolucao (Cr$ 210 mil); 

- Ritas (Ringo): Sintetizador de Som 
(Cr$ 40 mil). Interface Paralela Centronics 



(Cr$ 40 mil). Interface para Modem (Cr$ 40 
mil), Gravador de EPROM (Cr$ 80 mil) e In- 
terface para Tape Deck com Ultra Fast 
(Cr$ 40 mil). 

- Engebras (AS-1000): Interface AS- 100 
(Cr$ 75 mil), M6dulo de ExpansSo de Memo- 
ria de 16 K RAM (Cr$ 60 mil). Speed File de 
1 MB (Cr$ 1 milhao 650 mil). Joystick (Cr$ 
15 mil). 

- Microdigital (TK83 e TK85): Expansoes de 
mem6ria RAM de 16 K (Cr$ 69 mil 850) e 
64 K (159 mil 850), ambas para o I'K 83. 
Quanto ao Joystick, nao estava sendo produ- 
zido a epoca do fechamento dessa edicao, es- 
tando previsto para o ini'cio deste ano o lan- 
camento de um novo modelo. 

O periferico mais utilizado com esses 
equipamentos *, no entanto, o gravador casse- 
te, para armazenamento e recuperacao de pro- 
gramas. E 6 o gravador, tamtam, que geral- 
mente traz as maiores dores de cabeca para os 
usuarios, sobretudo os novatos. 

O bom desempenho do gravador depende 
muito das condicoes de funcionamento e de 
regulagem do aparelho. bem como da familia- 
ridade do usuario com a sua operacao. A lim- 
peza peribdica das cabecas com cotonetes 
embebidos em alcool (tomando-se cuidado para 
deixar secar bem antes de utilizar o equipa- 
mento novamente) e a manutencao da regula- 
gem correta de azimute (Sngulo de Incidencia 
da cabeca sobre a fita) sao duas providencias 
fundamentais, de acordo com usua>ios expe- 
rientes. 

£ mais facil gravar que recuperar progra- 
mas porque a maioria dos gravadores moder- 
nos tern ajuste automa'tico de ni'vel de grava- 
cSo e os computadores, antes de soltarem o 
programa, enviam um sinal para que o grava- 
dor ajuste o nivel. Mas mesmo assim podem 
ocorrer problemas, diffceis de detectar e que 
so sera"o sentidos na hora do carregamento. 
Isso acontece quando a cabeca apagadora nao 
L'sta" funcionando bem e deixa na fita vestfgios 
da gravacao anterior que se misturam ao novo 
programa. Esses ruidos, indistinguiveis ao ou- 
vido, confundem o computador que, entao, 
nao consegue carregar o programa. deixando 
no usuario a impressao de que o problema 6 
de carregamento, quando na realidade 6 de 
gravacao. 

No carregamento de programas, um dos 
pontos cri'ticos consiste em identificar com 
precisao o melhor volume de sai'da do sinal. 
Se for muito baixo, o computador nao conse- 
gue captar o programa; caso esteja muito alto, 
ou o computador nao consegue distinguir as 
partes silenciosas das sonoras, em razao doele- 
vado nfvel de ruido, ou entao o programa ser* 
distorcido pelo excesso de sinal. A esse respei- 
to, nao ha fbrmulas prontas: o ajuste ideal de- 
ver* ser procurado pelo processo de tentativa 
e erro. e o usudrio iniciante poderd "apanhar" 
um bocado at* descobrir o nCvel certo. 

Ainda de acordo com os especialistas con- 
sultados. a fita comum tow-noise de boa quali- 
dade presta-se perfeitamente ao uso com esses 
micros, sendo dispensavel, portanto.a utiliza- 
cao de fitas especiais, mais caras e as vezes atd 
prejudiciais aos gravadores comuns, que nao 
foram projetados para operar com elas. Deve- 
se tambem usar as fitas de curta dura- 
gao (que, por serem mais leves, possibilitam 
manter uma rotacao mais uniforme) com 
poucos programas gravados, de preferfincia 
um s6 Dessa forma, a fita ser* menos utiliza- 
da, diminuindo o seu desgaste e, em caso de 
defeito, perde-se apenas um programa. Quern 
quiser uma seguranca maior. pode gravar o 
mesmo programa varias vezes na mesma fita, 
precavendo-se contra variacoes ocorridas em 
trechos da fita e que obrigariam o usu*rio a 
ter que digitar todo o programa novamente. 

Quanto ao tipo de gravador, o mais usado 
em todos os micros nacionais *, sem duvida, o 
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A interessante historia 
de Sir Clive Sinclair 



Dcsdc a adoicsccncia, o in- 
Mt ( live Sinclair demons- 
trou duas caracteristicas: 
um gcnio crialivo para projctar 
maquinas c um gosto accntuado 
pelos objetos pequenos. Com 
apcnas 12 anos de idade, ele 
consiruiu uma pequena calcula- 
dora mecanica e aos 22, apos 
um breve periodo como reda- 
tor e editor especializado cm 
eietronica domestica, fundou 
com a sua esposa Anne uma em- 
press que vendia pelo corrcio 
inicialmenlc transistores e de- 
pois radinhos transistorizados 
do tamanho de caixas de fosfo- 
ros. 

Na decada de 70 projetou 
uma das primeiras calculations 
elctronicas cicntificas de bolso, 
alem de um relogjo de pulso di- 
gital e de um microrreccptor de 
TV com uma tela de duas pole- 
gadas. F.sscs produtos. talvez por 
seu pioneirismo, nao consegui- 
ram fazer sucesso c tiveram vida 
breve. 

Foi em 1980 que Sinclair 
lancou o produto que iria oca- 
sionar uma verdadeira rcvolucao 
na microinformatica, tornando 
nputador acessivel a milha- 
res de pessoas: o ZX80. Menor 
e mais harato computador dis- 



poned no mercado, o ZX80 
inovava em tres aspectos princi- 
pais: no preco. pois foi o primei- 
ro computador a custar menos 
de USS 100, na eietronica (rc- 
duziu o numero de chips nor- 
malmente utilizados de 40 para 
21), e na programacao, com um 
BASIC simples e poderoso. Ven- 
dido inicialmente pelo correio, o 
ZX80 iniciava poucos meses de- 
pois a sua escalada para o MCM- 
so atraves das 1 1 2 lojas da ca- 
deia W. H. Smith, na Ingtaterra. 

No ano seguinte, a Sinclair 
Research voltava a surpreender 
com o lancamento do ZX81, ate 
hoje considerado como a obra- 
prima dos computadores pes- 
soais. As inovacdes tccnologicas 
desse modelo cram ainda mais 
marcantes, a comecar pelo nu- 
mero de chips, que caiu dos 21 
do ZX80 para apcnas quatro no 
ZX81 (uma ROM com o sistema 
operacional, uma RAM para uti- 
lizacao pelo usuario, a L'CP Z80A 
e um quarto chip projetado 
pela Sinclair e fabricado sob 
encomenda por uma firnia ingle- 
sa de microeletronica, que con- 
trola toda a entrada saida do 
computador. substituindo 18 
chips do modelo antigo). Com 
isso, o ZX8I ficou ainda mais 



compacto. bonito e barato que 
o seu antecessor, alem de mur- 
to mais poderoso: o BASIC re- 
sidente que ocupava somen te 
4 K no ZX80, foi ampliado no 
ZX81 para 8 K, o que permitiu 
acrcsccntar um maior numero 
ill' luncdes e utilizar perifericos. 
como impressora. exito de 
mercado foi tao grande que o 
ZX81, em apenas tres meses, 
vendcu o mesmo numero de uni- 
dadea que o ZX80 (ja conside- 
rado um campeao de vendas) 
em um ano - 50 mil -, conquis- 
tando de vez nao so a Inglaterra 
c outros paises europeus. mas o 
proprio santuario da Informati- 
ca mundiahos Estados Lnidos. 

Criativo e irrequicto. Give 
Sinclair nao se contentaria cm 
descansar sobre as glorias do 
passado. E certain en tc nao o fez. 
Mais um ano de trabalho e o 
mercado sc surpreendia nova- 
mente, dessa vez com o Spec- 
trum. Com dimensocs aproxi 
madas as do ZX81. um pouco 
mais caro, mas com uma scrie de 
outros recursos, cntre eles a ge- 
racao de cores, este modelo To- 
go conquistou muitos usuarios. 
hnquanto isso, o inventor ingles. 
retomaado <> antigo projeto da 
TV miniatura, desenvolvcu um 



original issimo projeto de tela 
plana, com 20mm de profundi- 
dade, 100mm de larguraeSOmm 
de altura, que c tres vezes mais 
brilhante e consome a decima 
parte da potencia de um tubo 
de imagem tradicional com 
uma tela do mesmo tamanho. 
Em tela ira equipar microtele- 
\isoies de tamanho aproximado 
ao de inn maco de cigarros e 
posteriormente talvez os pro- 
prios computadores da empresa. 
E nas revistas norte-americanas, 
a Timex Sinclair, que produz os 
aparelhos da Sinclair Research 
nos Estados lnidos, ja anuncia 
um novo lancamento: o micro- 
computador Timex Sinclair 
2068. com 48K de RAM. sistema 
operacional em 24 K, cores, som 
e varios outros recursos, tudo 
isso por menos de US S 200. 

Em vista de todas 0MM reali- 
zacdes c da genialidade que tern 
demonstrado evse homem de43 
anos, dono de um refinado 
humour britanico e amant.' de 
carros esporte, capaz de gerar 
importantes inovacoes tccnolo- 
gicas sem ter frcqiientado uma 
universkladc, foi que a rainha 
Elizabeth II concedeu-lhe. a 16 
de junho do ano passado. o titu- 
lo de Sir. 



National com contador de fita (Cr$ 60 mil), 
que permite localizar com rapidez o programa 
desejado. Ha" tambem quern use tape-decks, 
equipamentos mais sofisticados e caros, e 
tambem gravadores do tipo microcassete. 

assistencia CENTRALIZADA 



A assistencia tecnica desses equipamentos- 
6 em geral centralizada nas fdbricas e 
mesmo no caso da Prologica, que ere- 
dencia oficinas autorizadas em todo o Pais, 
essa descentralizacao nao vale para o CP-200 
na capital de Sao Paulo. 

Entre as outras empresas, a centra I izacao 
tern origem numa desconfianca quanto a capa- 
cidade tecnica ou mesmo a idoneidade das 
possfveis candidates a oficinas autorizadas. Se 
gundo Ricardo Tondowski, assessor da direto 
ria da Microdigital, "nao credenciamos ofici- 
nas porque queremos manter a imagem do 
nosso produto" e, por isso, a empresa, para 
descentralizar, optou pela abertura de postos 
pr6prios de assistencia tecnica em diversas 
capitais brasileiras. Os dois primeiros — Rio de 
Janeiro e Porto Alegre - \& estao funcionan- 
do, estando prevista a abertura de postos se- 
melhantes em Brasilia, Belo Horizonte, Recife 
e Belem. Nas outras cidades, mantem-se o 
esquema tradicional de enviar os TKs em ma- 
lotes para a fabrica. 

Tambem de malote viajarao para o Rio de 
Janeiro os AS-1000, da Engebras. que por- 
ventura apresentarem problemas. Jorge Luiz 
de Andrade Lins, presidente da empresa, ex- 
plica que vai centralizar na fabrica o conserto 



dos computadores para poder ter uma ideia 
mais direta dos defeitos que ocorrem nos 
equipamentos. Ele nao descarta a possibilida- 
de de, futuramente. vir a credenciar oficinas 
autorizadas, mas essas serao escolhidas a dedo 
e seus tecnicos terao que passar por um treina- 
mento intensivo na fabrica 

A Ritas do Brasil, fabricante do Ringo, 6 
ainda mais n'gida nesse aspecto. Conforme diz 
Wagner Codonho, gerente comercial, a empre- 
sa nao pretende credenciar firmas de assisten 
cia tecnica e mesmo que algum dia venha a 
faze-lo, "a ideia e que dentro dessas oficinas o 
respons^vel pelo conserto de nossos equipa- 
mentos seja um funcionario nosso. Essa preo- 
cupagao, esclarece, deve-se em grande parte ao 
fato de que em sistemas de eietronica ha' mui- 
ta coisa em que se pode quebrar o galho e nao 
consertar realmente. e a Ritas nao quer correr 
esse risco. "AI6m disso", acrescenta, "acha- 
mos que o numero de maquinas que poderao 
voltar para assistencia e mfnimo". 

A esse respeito, alias, fabricantes. tecnicos 
independentes e usuarios consultados concor- 
dant que esses equipamentos - talvez por te- 
rem muito menos componentes que os micros 
de maior porte - apresentam um baixo mdice 
de problemas tecnicos, sobretudo tendo em 
vista o numero de maquinas em funcionamen- 
to no mercado. A maioria dos problemas apre- 
sentados pelos equipamentos, enfatizam os 
especial istas, devem-se mais a falhas na manu- 
tencao e erros de operacao por parte dos 
usuarios do que propriamente a defeitos de 
natureza tecnica. 

Para Jose Carlos Niza, engenheiro e diretor 
tecnico da Computer Service Center Ltda., 



empresa carioca especializada em manutencao, 
a iirea mais problematica de computadores 
como os TKs 82-C e 83, bem como o ZX81 , 6 
a conexao de expansao de membria que, se 
nao estiver bem encaixada, pode acarretar 
falhas de operacao no micro, tais como o apa- 
gamento da mem6ria ou mesmo o trancamen- 
to do sistema operacional. Sobre isso, alias, 
os tecnicos consultados recomendam a limpe- 
za periodica dos contatos — tanto do micro 
quanto da expansao — para evitar problemas 
de mau contato causados pela oxidacao. Isso 
pode ser feito com um pano levemente embe- 
bido em benzina. 

Niza faz ainda outros comenta>ios a respei- 
to da operacao desses sistemas. "Retirar a 
expansac- com o computador ligado e crime", 
diz ele. acrescentando que "na"o s6 a expan- 
sao, mas todas as conexoes devem ser feitas 
com o computador desligado". Nunca se deve 
desligar o micro pelo plugue conectado ao 
aparelho, mas sim no interruptor da fonte ou 
diretamente na tomada da rede eletrica. Assim 
evita-se a geracao de cargas espurias que po- 
dem danificar o circuito. E quando sedesligar- 
o que 6 feito com frequencia para ressetar o 
sistema - deve-se esperar pelo menos uns 10 
segundos para permitir que os capacitores se 
descarreguem e nao haja sobretensoes na hora 
do religamento. 

As empresas independentes de manuten- 
cao, por sua vez, nao gostam de consertar 
esses equipamentos porque e uma tarefa tra- 
balhosa e demorada, ao mesmo tempo em 
que. devido as caracterfsticas de baixo custo 
dessas maquinas. o valor dos orcamentos tern „ 
que ser necessariamente reduzido. 
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Apply 300 



As informacoes acerc* do equipa- 
mcnto Apply MK) nos foram forne- 
cidas pcla cmprcsa fabrirante. nio 
t.-rulo podido nossa equipe \erifica- 
las uma vcz out, apesar de termos pedido 
com antecedencia urn equipamento para 
teste, a empresa nio nos deu resposta. 

Em ligacao telefAnica, fomos informa- 
dos pela funcionaria da CDSE, Maria da 
Gloria Dias. de que a maquina estaria sain- 
do de linha. Postcriormentc, o sr. Francis- 
co Moreira Cesar. Diretor da emprcsa, 
afirmou que a funcionaria se"confiindira": 
o equipamento nao teria sua produciio 
desativada. e sim seria reformu)aclo. 

A revista MICRO SISTEMAS. contu- 
do, deixa claro a seus leitores ter sido im- 
possivel sequer ver tal maquina. 



AS- 1000 



Ari Soares, proprieta>io de uma dessas 
empresas, a Yatec. do Rio de Janeiro, explica 
melhor os motivos dessa "rejeicao". princi- 
pal problema diz ele, 6 que os componentes, 
principalmente os integrados, sao soldados na 
place, quando deveriam ser colocados em so- 
quetes. Se assim fosse, prossegue, o conserto 
de um equipamento desses seria coisa de mi- 
nutos, pois ficaria muito mais facil local izar e 
substituir o componente defeituoso. Como, 
no entanto, e tudo soldado (as vezes em baixo 
e em cima da placa), a local izacao do defeito 
fica muito mais dif icil - posto que nao da 
para testar individualmente os integrados 
"suspeitos' - e, quando se retira o compo- 
nente com o ferro de soldar, frequentemente 
ocorre danificar-«e a pista do circuito, que de- 
ve ser refeita, dando ainda mais trabalho e con- 
sumindo tempo. Tudo isso faz com que o 



TK83 



custo da mao-de-obra fique muito alto em 
relacao ao valor do equipamento e ao que o 
seu proprietario esta disposto a gastar num 
conserto. 

Para o tecnico de manutencao, sentencia 
Ari, "o design do circuito 6 mais importante 
que a qualidade do componente". Ele aponta 
os principals problemas que encontrou nos 
Sinclair (originals ou compativeis) que passa- 
ram pela sua oficina: teclado ("a qualidade da 
fita que liga o teclado d UCP 6 ruim"); falhas 
de montagem na fabrica; especificamente no 
caso do TK82 C, defeitos causados pela adi- 
cao da placa de SLOW, componentes ruins. 

Apesar de todos esses problemas, Ari Soa- 
res nao poupa elogios a essa linha de equipa- 
mentos: "0 Sinclair, em termos de hardware, 
6 a melhor maquina que eu ja vi na minha 
vide. seu firmware 6 algo fanta"stico. com 











s equipamentos 


FABRICANTE 


MODELO 


VIDEO 


TECLADO 


Tlpo 


DeacriQao 


Sistema 


COSE - C«ntro de Dm. de Sltt EktL Ind. Com. Ltda. 
Estrada do Galeae 1 1 - sala 202 
21931 Rio de Janeiro • RJ 
Tel.: (021) 396^4264 


Apply 300 


Texto: 32 col. x 22 I 
Grafico: 64 x 44 pts. 


Borracha 


69 teclas 
de funcao 25 
de comando: 26 
numerico reduzido 


8 K ROM 


Engebra* Elefronlca e Informaiica Ltda. 

Rua do Russel, 450 • 3° andar 
22210 Rio de Janeiro - RJ 
Tel.: (021) 205-4898 


AS- 1000 


Texto: 32 col. x 22 I. 
Grafico: 64 x 44 pts. 


Membrana 
c, calotas 


40 teclas 

de funcao: 154 

de comando: 34 


8 K ROM 


Microdigrtal Etotronica Ltda. 

Rua do Bosque. 1234 
01136 Sao Paulo - SP 
Tel.: (011) 825-3355 


TK83 


Texto: 32 col. x 22 1 
Grafico: 64 x 44 pts. 


Membrana 


40 teclas 

de funcao: 37 

de comando: 34 


8 K ROM 


TK85 


Texto: 32 col. x 22 1 
Grafico: 64 x 44 pts 


Borracha 


40 teclas 
de funcao: 37 
de comando: 46 


10 K ROM 


Proldgica Mjcrocomputadorea Ltda. 

Ay. Eng.° Luis Carlos Berini, 1168 
04571 Sao Paulo - SP 
Tel.: (011) 531-8822 


CP-200 


Texto: 32 col. x 22 1 
Grafico: 64 x 44 pts. 


Calculadora 


43 teclas 
160 funcoes 
e comandos 


8 K ROM 

( 


Ritas do Braall Ltda. 

Rua Soldado Jose Reymao. 199 

02178 Sao Paulo - SP 

Tel.: (011) 217-8400 

Divisao Informatica 


R-470 Ringo 


Texto. 32 col. x 22 1 
Grafico: 64 x 44 pts. 
Alta res.: 256 x 192 pts 
(c/ cartucho apropnado) 


Semi- 
profissional 


49 teclas 

algumas c/auto- 

repeticao 

de funcao: nao tern 

de comando: 34 


8 K ROM « 


Esta tabela foi feita com base nas informacoes de 
mentos efetrvamente sendo comercializados. Com 
dados comuns a todas essas maquinas e que apor 


um questiona 
a finalidade di 
tamos a segui 


rio respondido pelos fabric 
j evitar repeticoes e econor 
r: a UCP Z80A, com clock de 


antes, e compreende apenas os equipa- 
nizar espaco. retiramos'da tabela aiguns 
3,25 MHz. e uma dessas caracteristicas. 
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TK85 

meia diizia de componentes. Clive Sinclair fez 
um programa monitor que permite operar 
como um computador completo". E vai alem: 
"Um bom programador faz mais num TK que 
um mau programador num IBM-PC". 

No tocante ao controle de qualidade dos 
produtos. os fabricantes ressaltam os seus es- 
forcos nesse sentido. Engebras, Microdigital e 
Prologica testam um a um os componentes 
antes de iniciar a montagem. A Ritas testa 
individualmente os componentes mais cn'ticos 
e na base do percentual por lote os demais. 
Alguns fabricantes f8zem testes intermedidrios 
durante a montagem e todos testam os equi- 
pamentos prontos, deixando-os funcionar por 
um determinado periodo antes de embald-los. 
A Engebras chegou a desenvolver paineis de 
teste de acordo com as suas especificacfies 
industrials e confecciona as pr6prias placas de 



CP-200 

circuito com maquinas Ristron importadas 
dos EUA. Todas as empresas mantem labor a 
tbrios de pesquisa e desenvolvimento. 

De um modo geral, os fabricantes vdem 
nos principiantes e nos jovens dos cursos se- 
cundario e superior os seus maiores clientes. A 
Ritas, contudo. apresenta ambicoes de maior 
porta: para Codonho, o Ringo devera pegar 
uma faixa de publico que vai desde o iniciante 
ate a industria ou loja que nao tern condicdes 
de ter um micro maior. AtC mesmo "em gran- 
des empresas, nosso equipamento pode ser 
usado, por exemplo, em processamento distri- 
bui'do, como nos varios departs men tos de 
uma firma ou nas vdrias lojas de uma cadeia". 

Ja a Prologica, talvez por atuar primordial- 
mente com sistemas maiores e de outras li- 
nhas. nao acredita tanto na potencialidade dos 
pequenos equipamentos. Pelo contnlrio, con- 



/M 70 Ringo 

forme argumenta o seu gerente de marketing, 
Joao Bittencourt, "o produto Sinclair tern um 
determinado tempo de mercado e os novos 
modelos vao chegar ao preco de um Sinclair, 
fazendo muito mais do que ele". E arremata: 
"Os equipamentos da linna Sinclair podem ser 
usados em aplicacoes comerciais, mas nunca a 
ponto de competirem com sistemas maiores. 
Podem ate" fazer o que os sistemas maiores 
fazem, mas nunca com a mesma ef iciencia". 

ESCOLA E CACHACA 

Por serem os mais acessiveis, simples e ba- 
ratos, esses equipamentos constituem-se 
na grande escola; na porta de entrada de 
milhares de pessoas no mundo da Informdtica. 
Micro ligado na TV da sala (disputando tempo 



fabricados no Brasil 




MEMORIA 


ENTRADAS 
E SAIDAS 


CONFIGURAQAO BASICA 
PRECO 


PERIFERICOS 


Usuirfo 


Expansao RAM 


16. 32 ou 
48 K RAM 


. - - 


p/ interface serial 

p/ cassete 

p/ comunicacoes 


16 K RAM - Cr$ 346 mil 500 

32 K RAM - Cr$ 396 mil 

48 K RAM • Cr$ 445 mil 500 


16 K RAM c/ RS232C - Cr$ 357 mil 500 

32 K RAM c/ RS232C - Cr$ 407 mil 

48 K RAM c/ RS232C - Cr$ 456 mil 500 


16 K RAM 


Ate 48 K em modulos 
internos de 16 K 


p interface paralela 
p/ cassete 
p/ joystick 
p/ speed-file 
2 slots livres 


16 K RAM - Cr$ 195 mil 


interface AS-100 - Cr$ 75 mil 
exp. memoria 16 K RAM - Cr$ 60 mil 
speed-file 1 MB • Cr$ 1 milhao 650 mil 
joystick - Cr$ 15 mil 


2KRAM 


16 ou 48 K em 
placas externas 


p/ cassete 
p/ joystick 


2 K RAM - Cr$ 139 mil 850 


exp. memoria 16 K RAM - Cr$ 69 mil 850 
exp. memoria 64 K RAM - Cr$ 159 mil 850 


16 ou 
48 K RAM 




p/ cassete 
p/ joystick 


16 K RAM - Cr$ 297 mil 850 
48 K RAM - Cr$ 429 mil 850 




16 K RAM 




p/ cassete 


16 K RAM - Cr$ 340 mil 


joy control - Cr$ 35 mil 
alta resolucao - Cr$ 210 mil 
impressora P-500 c/ interface 
paralela - Cr$ 1 milhao 420 mil 


16 K RAM 


Ate 48 K em modulos 
internos de 16 K 


p/ interface paralela 
p/ cassete 
p/ joystick 


16 K RAM -Cr$321 mil 


sintetizador de som - Cr$ 40 mil 
interface paralela Centronics - Cr$ 40 mil 
interface p/ modem - Cr$ 40 mil 
gravador de EPROM - Cr$ 80 mil 
interface p/ tape-deck c/ ultra 
fast - Cr$ 40 mil 


bem como a utihzacao de TV comum e, consequentemente. de modulador de RF. Todos esses micros tambem tern o mesmo sistema 
operacional e ' falam as mesmas linguagens Sinclair BASIC e Assembler. Os precos listados referem-se a dezembro/83, estando. 
pois. sujeitos a alteracoes. 
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de video com os desenhos animados, novelas 
e filmes da famflia), urn manual que a princi'- 
pio e uma verdadeira caixa de misterios, muita 
perplexidade e vontade de aprender. Essa ima- 
gem e comum a bast a rite gente, recordando os 
seus primeiros dias de usuario. E, para muitos, 
o tinclairzinho acaba virando cachaca, um 
hobby capaz de consumir incontaveis noites e 
fins de semana, para desespero de muitas 
esposas. 

A primeira geracfo de usuarios de micros 
nacionais — entre os quais os de linha Sinclair 
encontram-se entre os primeiros a serem Ian- 
cados — teve que aprender praticamente sozi- 
nha. 

Conforme relembram essas pessoas. elas 
nao tinham a quern recorrer: havia poucas 
revistas e livros especial izados, e mesmo os 
entendidos no assunto, os profissionais de 
Informatica, nSo conheciam essas maquinas. 
A solucSo era ficar longas horas na frente do 
video tentando entender o que dizia o ma- 
nual. As primeiras lojas tornaram-se verdadei- 
ros clubes onde o pessoal se reunia para trocar 
experiencias. repartir a pouca literatura dispo 
nfvel e, com informacoes esparsas colhidas 
aqui e acola, ir montando na cabeca uma bi- 
blioteca especial izada. Houve ate casos folcld- 
ricos como o de um determinado livro estran- 
geiro do qual havia um unico exemplar no Rio 
de Janeiro, com cinco c6pias xerox circulando 
entre a turma de aficionados. 

Sobretudo em termos de Sinclair, conhe- 
cer ou nSo Informatica ajudava um pouco, 
mas nao fazia uma diferenca fundamental. 
Tanto assim que nem usuarios como Rui 
Cesar Torres - analista de suporte em equi- 
pamento 1MB, 12 anos de profissao, conhece- 
dor de varias linguagens (inclusive o BASIC) 
— escaparam das dificuldades de aprendizado. 

Ele teve acesso a um dos primeiros ZX81 
lancados na Inglaterra (um gerente da sua 
empresa, ingles, trouxe e Ihe emprestou por 
algum tempo) e logo que saiu aqui o TK82-C, 
comprou um. Apesar de ja conhecer bem o 
BASIC, conta ele, a linguagem que mais o 
ajudou a compreender o Sinclair BASIC (que 
ele considera muito poderoso) foi o Fortran. 
Segundo ele, ambas as linguagens tern uma 
estrutura muito parecida, como por exemplo 
o comando FOR/NEXT (igual ao DO do For- 
tran) e o fato de so ser permitida uma acao 
apos o IF, entre outras semelhancas. 

As dicas mais especi'ficas sobre o equipa- 
mento (incluindo assuntos tais como sub-roti- 
nas, logica. desbloqueio de programas e mes- 
mo a troca de programas), recorda Rui, eram 
conseguidas atraves da correspondencia que 
mantinha com usuarios de diversos pontos do 
pais, cujos nomes encontrava na secao de clu- 
bes de MICRO SISTEMAS, entao em seus 
primeiros niimeros. 

O manual do equipamento tambem foi util 
para aprender o BASIC, mas quando ele quis 
ir para o Assembler, o jeito foi comprar dois 
livros estrangeiros: Z80 Assembly Language 
Programming de Leventhal, e Mastering Ma- 
chine Code on Your ZX81 or ZX80, de Ba- 
ker, este ultimo "tab bom que vocfi encontra 
pubiicacdes nacionais calcadas nele". 

Assim como Rui, quern ja" e programador 
BASIC e esta habituado a outras linhas de 
equipamentos tern que passar por um pen'odo 
de readaptacao ate dominar certas particulari- 
dades do BASIC Sinclair. A comecar pela 
ausencia das instrucdes DATA, READ e 
RESTORE que, alias, constituem-se talvez no 
ponto de maior polemica entre os defensores 
e adversarios da famflia Sinclair: estes procia- 
mando que a falta dessas instrucdes torna 
essas maquinas imprestaveis para qualquer 
aplicacao mais "seria" ou principalmente, de 



Os pros e os contras dos micros nacionais 



PONTOS POSITIVOS 



- A manutencao do mesmo Sistetna 
Operacional fez com que todos os micros 
fossem extremamente compativeis em 
Dessa forma, uma imensa biblioteca de soft- 
ware podera ser for mad a. pois o numero 
total de micros colocados no mercado supe 
ra a casa dos 250 mil. 

- A velocidade de gravacao, apesar de 
alguns a iicharem lenta. e bastante segura e a 
experiencia tem-nos mostrado que os maio- 
res problemas residem na ma utilizacao do 
gravador. Alguns testes reaiizados nos nossos 
equipamentos mostraram que um aumento 
de mais de 4.5 vezes na velocidade pode 
acarretar problemas de leitura/gravacao. 

- A documentacao e razoavelmente 
clara quanto a utilizacao do Basic; porem, 
praticamente inexistem informa^des, no 
manual, sobre a programacao em Assembler 
(sob esse aspecto e bom lembrar que os pri- 
meiros TKs nem mesmo manual possuiam). 



PONTOS NEGATIVOS 



- A manutencao, em equipamentos 
com 16K de RAM interna, da rotina original 
de Scroll, causando uma demon desnecessa- 
ria para um CLS apos varios Scroll (isso so 
tern sentido para equipamentos com I ou 2 
K de RAM). 

- O pouco aproveitamento da area de 
enderecamento entre a ROM e a RAM (po- 
deriam ser colocadas ai rotinas de Scroll em 
todas as direcdes e rotinas especiais de con- 
trole de video). 

- A falta de informacoes tecnicas a 
respeito dos projetos de hardware (alguns 
possuem os integrados raspados, o que invia- 
biliza ao usuario inplementacdes simples 
como video direto, ou inversao de video). 

- A falta de uma rede de assistencia 
tecnica realmente eficiente e credenciada 
pela industria. 



natureza comercial; aqueles dizendo que o 
DATA, READ e RESTORE so fazem real- 
mente falta nesses equipamentos a quern nao 
sabe programa-los direito, uma vez que essas 
instrucdes podem ser perfeitamente simuladas 
de outras maneiras. 

A obrigatoriedade de uso do comando 
LET para a atribuicao de valor as variaveis e a 
impossibilidade de se colocar mais de um co- 
mando por linha sao outras caracterfsticas 
que podem causar estranheza 

Essas diferencas fazem as vezes usuarios de 
TRS, Apple e outras maquinas maiores torce- 
rem o nariz para os pequenos Sinclair. Mas 
quern tiver a curiosidade maior que o precon- 
ceito e se dispuser a "fucar" um pouco no 
TK, CP-200 (ou mesmo no ZX-81. . .)ira, sem 
duvida, descobrir coisas interessantes. Confor- 
me diz Jose Rafael Sommerfeld programador 
profissional ha quatro anos, trabalhando com 
Cobra 305, em LTD e Cobol, usuario de 
CP-200 e TK-85, "muitas dessas aparentemen- 
te deficiencies sSo. na verdade, vantagens". E 
da um exemplo: para se imprimir um carater 
de uma string num TRS, utiliza-se o comando 
MID$. O Sinclair nao tern esse comando por- 
que na verdade nao precisa dele: basta digitar 
PRINT A$ (2), por exemplo, e o segundo 
carater da string sai impresso na tela. E mais 
rapido, mais simples e ocupa menos memdria. 

Antonio Carlos Salgado Guimaraes, enge- 
nheiro, atualmente trabalhando com um IBM/ 
370 no Laborat6rio de Computacao Cienti'fi- 
ca do CNPq, no Rio de Janeiro, vai mais longe 
ainda na defesa do equipamento Sinclair: "Em 
termos de custo/benefi'cio ele e o melhor; 
voce tern mais do que pagou. E se conseguir 
implementar bem, fica melhor que o TRS". 

Proprietario de um TK82-C ha mais de um 
ano, Antonio Carlos ja fez uma implementa- 
cao de hardware (um inversor de video, no 
qual gastou Cr$ 1 mil) e va>ias de software: 
tern em fita todas as funcoes especiais do 
TK85 (high speed, verify etc.), que carrega no 
82-C feito monitor; tern compilador BASIC 
M-Coder e mais uma serie de programas utili- 
tirios. 

Antonio Carlos destaca a facilidade que 
esses equipamentos oferecem para o aprendi- 
zado de BASIC e Assembler, acrescentando 
que as prpprias limitacoes de recursos dessas 
maquinas estimulam os usudrios a pesquisa- 
rem, adquirindo conhecimentos que mais 



tarde podem ser empregados em outros 
computadores mais complexos. Ele exempli- 
fica, inclusive, dizendo que muitos dos con- 
ceitos de computacao que aprendeu, deve-os 
ao seu TK e nao ao/370 com o qual trabalha. 

Lamentando a falta de bom software - 
mesmo que pirateado do exterior — e de peri- 
fericos no mercado brasileiro, Antonio Carlos 
conta que aprendeu Assembler sozinho, atra- 
ves de livros e revistas estrangeiros, e queixa-se 
dos manuais dos nossos equipamentos: "As 
informacoes sSo mi'nimas. Tem-se a impressao 
de que eles (os fabricantes) escondem o jogo". 

Dificuldades a parte, os usuarios dos 
micros Sinclair sao unanimes em ressaltar a 
capacidade desses equipamentos. Sua excelen- 
te manipulacao de strings e de matrizes (que 
substitui o DATA/READ/RESTORE), a parte 
graf ica, que permite fazer bastantes coisas, e os 
comandos por uma unica tecla, que propor- 
cionam maior comodidade, rapidez de digita- 
cao e economia de mem6ria. Isso sem falar 
nas poderosas funcoes de edicao que indlcam, 
no momento mesmo da digitaca"o, se hi erros 
de sintaxe e ainda por cima mostram o local 
exato onde o erro ocorreu. Dessa maneira, a 
depuracao do programa e feita juntamente 
com a sua digitacao e quando um programa 
comeca a ser executado num Sinclair, ele pode 
corner erros de logica. mas nunca um erro de 
sintaxe. 

"A boiacao do (Clive) Sinclair foi muito 
grande", diz Rui Cesar Torres, "vai ser dif fcil 
algu6m fazer um computador melhor e a um 
custo menor". E completa: "Se a pessoa nao 
tiver grandes ambicdes de cor, som e alta reso 
lucao. e se nao quiser gastar muito, o Sinclair 
e maquina pr& vida toda". 



Apuracao SP: Cldudia Ramalho e Stela 

Lachtermacher 

Apuracao RJe tax to final: Ricardo Inojosa 

MICRO SISTEMAS agradece a todos os que 
colaboraram nessa reportagem, que nSo teria 
sido possfvel realizar sem a experiincia adqui- 
rida na operacao diiria do CPD da Re vista. 
Por esse motivo, agradecemos de publico o 
grande apoio que nos tern sido prestado pelas 
empresas Prologica e Microdigital. 
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nao importa o tamanho de seu problema, 
nds temos a solucao na medida exata ! 




LINGUAGEM BASIC 
16 K DEMEMORIA 
V E LOC ID ADE D E 
TRANSFERENCE 14 VE 
ZES MAIS RAPID A 



CP-300 




MODULAR 
LINGUAGEM BASIC 
48 K DEMEMORIA 
COMPATIVEL COM 
SOFTWARE DO CP-500 



S-600 




MICRO: 

• LINGUAGENS COBOL. 
BASIC E FORTRAN 

• 64 K DEMEMORIA 

• DUAS UNIDADES DE 
DISCO 



IMPRESSORA: 

• VELOCIDADE 130CPS 

• MATRIZ7x9 

• 132COLUNAS 

• ORIGINAL +5 COPIAS 



ACESSORIOS 

SOFTWARE • MESAS • DIS 
QUETES • ARQUIVOS • 
FORMULARIOS CONTI 

NUOS • EST ABI L IZ ADORES 
DE TENSAO • UNIDADES 
DE DISCO FLEXlVEL • ETC. 



APROVEITE! 

PROMOCOES ESPECIAIS • 
FINANCIAMENTO • LEA- 
SING • CONSORCIO •car- 
toes DE CREDITO: CREDI- 
CARD, NACIONAL, ELLO. 



CP-500 




LINGUAGEM BASIC 
48 K DEMEMORIA 
ATE 4 DRIVES 
SAID A PARALELA SE- 
RIAL 



P-720 




VELOCIDADE 200 CPS 
MATRIZ 7 x 9 
INTERFACE: 
PARALELA, 
SERIAL 



P-500 



jAA^r 
LVENDArr 




VELOCIDADE 100 CPS 
MATRIZ 9 x 7 
INTERFACE: 
PARALELA 
SERIAL 



TRAQADOR 
GRAFICO 




8 PENAS 

Area de traqado 

10 x 15 POL 
INTERFACE RS-232 



fikres 

Filcres Importapao e Represantapoes Ltda. 

Rua Aurora, 165 - CEP 01209 - Sao Paulo - SP 

Telex 1131298 FILG BR - PBX 223-7388 - Ramais 2, 4. 

12. 18, 19 - D.retos: 223 1446, 222-3458, 220 5794 • 

220-9113 - Reembolso - Ramal 17 Direto: 222 0016 - 220-7718 



Com a ajuda deste programa, os usuarios do PC- 1211 poderao calcular 
mais rapidamente os Momentos Fletores de uma viga contfnua 



Um pocket-programa 
de vigas continuas 



Edison Waetge Junior 



Este programa, dcsenvolvido para o PC 1211. calcula os 
Momentos Fletores nos apoios de um viga continua 
com ate quatro vaos (cinco apoios), submetida a uma 
carga unitana concentrada passeando de quinto em 
quinto de cada vao. Considcra-se a viga com Momento de 
Indrcia constante. 

Atraves do exemplo a seguir, poderemos analisar a nomen- 
clatura utilizada pelo programa: 



1« apoio 



ultimo apoio 



F 

# — mi: 



p«i 



-&T 



-M2)- 



-&T 



■LI3I- 



~7&r 



I 



-if L(4) # 

D E 




10: REM "LINNA D 
E INFLUENCIA 

20: INPUT -NUMER 
HE VAOS CM 
AX 4>«"!Z 

25: IF Z<2THEN 2 


30: IF Z>4THEN 2 


35: INPUT "LCD 
« "IA 

40: INPUT "L<2> 

■ -;b 

45: IF Z*2THEN 7 


50: INPUT "L<3> 

■ "»C 

55: IF 2*3THEN 7 


60: INPUT "L<4> 

= -;d 
70: pause "prime 

irq apoio" 
75: input "simp< 

0)i ENG<0.5> 
= "IL 
80: PAUSE "ULTIM 

APOIO" 
85: INPUT "SIMPC 



0>» ENGC0.5) 

= -;l 

90:G-l/<2+A''B*< 

2-F)> 
95: IF Z=2THEN 1 

40 
100:N=l/<2+B/C*< 

2-G>> 
105: IF Z=3THEN 1 

25 
110:I*1''<2+C''D*< 

2-H>) 
115:M=l/'<2+D/'C*< 

2-L>> 
120: GOTO 130 
125: M«L 
130:N-l/<2+C/B*< 

2-M>> 
135: GOTO 145 
140: N=L 
145:0=l/<2+B/A*< 

2-N>> 
160:F0R W=1T0 4 
165:X=A*M/5 
170:R=X*(A*A-X*X 

V<A*A> 
175:S-X*<A-X)*<2 

*A-X)/<A*A) 
180: PRINT "CARGA 



EM X»"JX 
185: IF F=0THEN 2 

00 
190:Y»F*<0*R-SV 

<1-F*0> 
195: PRINT Y 
200:Y*0*<F*S-RV 

<1-0*F> 
205: PRINT Y 
210: IF N*0THEN 2 

65 
215«Y— Y*N 
220i PRINT Y 
225: IF Z»2THEN 2 

65 
230: IF M=0THEN 2 

65 
235: Y=-Y*M 
240: PRINT Y 
245: IF Z=3THEN 2 

65 
250: IF LOTHEN 2 

65 
255:Y«-Y*L 
260: PRINT Y 
265: NEXT M 
280: FOR M=1T0 4 
285:X=B*W/5 
290:R=X*<B*B-X*X 

>/<B*B> 



295:S=X*<B-X>*<2 

*B-XV<B*B> 
300: T=X+A 
305: PRINT "CARGA 

EM X«"IT 
310:Y*G*<N*R-S)/ 

<1-G*N) 
315: IF F«0THEN 3 

25 
320: PRINT -Y*F 
325: PRINT Y 
330: IF N=0THEN 3 

85 
335:Y*N*<G*S-RV 

<1-N*G> 
340: PRINT Y 
345: IF Z=2THEN 3 

85 
350: IF M-OTHEN 3 

85 
355: Y=-Y*M 
360: PRINT Y 
365: IF Z=3THEN 3 

85 
370: IF LOTHEN 3 

85 
375: Y=-Y*L 
380: PRINT Y 
385: NEXT W 



390: IF Z=?THEN 5 

90 
400: FOR I4-1T0 4 
410:R«X*<C*C-X*X 

) s ( C*C ) 
415:S*X*<C-X)*<2 

*C-XV<C*C> 
420: T=X+A+B 
425: PRINT "CARGA 

EM X="!T 
430:Y»B*<M*R-S>/ 

<1-H*M) 
435: IF F*0THEN 4 

45 
440: PRINT Y*G*F 
445: PRINT -Y+G 
450: PRINT Y 
455: IF M=0THEN 4 

90 
460:Y=M*<E*S-R)^ 

<1-M*H> 
465: PRINT Y 
470: IF Z=3THEN 4 

90 
475: IF L'OTHEN 4 

90 
480: Y=-Y*L 
485: PRINT Y 
490: NEXT W 
495: IF Z»3THEN 5 



90 
510:F0R W-1T0 4 
515:X»D*W/5 
520:R=X*<D*D-X*X 

)/(D+D> 
525:S=X*<D-X)*<2 

+D-X)/<D*D) 
530: T=X+A+B*C 
535: PRINT "CARGA 

EM X="1T' 
540:Y«I*<L*R-SV 

(1-I*L) 
545: IF F-OTHEN 5 

55 
550: PRINT -Y*H*G 

*F 
555: PRINT Y*H*G 
560: PRINT -Y*H 
565: PRINT Y 
570: IF L-OTHEN 5 

85 
575:Y=L*<I*S-R>' 

<1-L*I> 
580: PRINT Y 
585: NEXT W 
590: PRINT " 

FIM 
600: END 
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Em primeiro lugar, os dados de entrada. O propno progra- 
nia ira sohcitar . pela ordem, os seg writes dados: 

1) numero de vaos (Z = 2, 3 ou 4). No exemplo, Z = 4; 

2) distancia entre apoios, de L(l) ate* L(Z). No exemplo, L(l), 
L(2),L(3)eL(4); 

3) coeficientes de tiansmissao para os apoios extremos, que, 
no caso de engastamento, valem 0.5, e para os apoios simples 
valem 0. No exemplo, pela ordem: 0.5 e 0. 

Passemos agora para os dados de sai'da. Para cada posicao X 
da caiga P. contada a partir do apoio A, sera"o impressos os 
Momentos Fletores de cada apoio. No caso de nao estar conec- 
tada a impressora, os resultados podem ser obtidos pressionan- 
do-se a tecla ENTER. 

Para agilizar o programa, os Momentos Fletorcs nulos sao 
desconsidcrados. Assim, para o nosso exemplo, os dados de 
sai'da para cada posicao X seriam: M(A), M(B), M(C), e M(D); 
se o apoio A fosse do tipo simples, as sai'das seriam : M(B), M(C ) e 
M(D); da mesma forma, quando a carga estiver sobre urn dos 
apoios, todos os Momentos Fletores serao nulos. 

Na figura 1 tcmos urn outro exemplo, no qual podemos 
acompanhar os procedimentos de calculo efetuados pelo pro- 
grama. Observe que as unidades sao as mesmas fornecidas na 
entiada. No nosso exemplo. tf.m. 

Como observacao final, alertamos que se o usuano desejar 
fazer os cilculos para cada decimo de vao, deve alterar as li- 
nhas 160, 280, 400 e 510 para FOR W=l TO 9, e incluir as li- 
nhas: 165 X= A"W/10, 285 X= B'W/IO, 405 X=0/ # W/10 e 
515 X- D'W/10. 

BIBLIOGRAF1A 

KALMUS, Simpson Simao & LUNARDI Jr., Eun'maco - Es- 
tabilidade das Construqoes, Vol. 11, Tomo II. Editora Noble. 
1978. 
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Entrada: RUN 






"NUMERO DE VAOS (MAX 4) = 


":2 




"L(l) = ":10 






"L(2) = ":15 






"PRIMEIRO APOIO" 






"SIMP(0), ENGI0.5) = ":0.5 






"ULTIMO APOIO" 






"SIMP(O), ENGI0.5) = ":0 






Saida: CARGA EM X = 2 






-1.387 M(A) 






-0.107 M(B) 






CARGA EM X = 4 






-1.760 M(A) 






-0.320 M(B) 






Ou, resumindo: 






X MIA) M(B) 






2 


-1.387 


-0.107 


18 v *° I 


-1.760 
-1.440 


-0.320 
-0.480 






8 


-0.747 


-0.427 






13 


0.720 


-1.440 


2* vao J* 


0.960 
0.840 


-1.920 
-1.680 






22 


0.480 


-0.960 









Figura I 



Edison Waetge Junior 6 formado em Engenharia Civil pela Universidade 
Mackenzie e trabalha na Ford do Brasil no Departamento de Engenharia. 
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CIBERNE i a man avancada e sofisticada linha de software para microcomputadores, cnada 
para livrar voc* dos inconvenientes de prodocdes amadoras ou de origem duvxlou Com 
CIBERNE voc* teri uma diversificada linha de programai novos. lancados periodicamente 
em pacoies economicoi. Com gravacio proffoional e em embalagem inviolavel. CIBERNE 
oferece a voce garamia total em qualqoer lugar do Brasil. 

PROGRAMAS EM FITA PARA TK«2. 83. 85. CP 200 E COMPATIVEIS 



n o exclutivo FLASH-SISTEM que permite um carregamento 6 ve*es mai! 
o normal, sem qualquer modif icacao no equipamento. 



C jooos j 

S~r qvllqvir tottomo no pra«o voc* •ncootri «n cad* tru 5 -mcruntm iotM para an larar a 
•ontuninwiio Um joyitK* ou udado. 



BICHOS m CIA 

• CASCA. A COBRA 
i CBAZY KONG 
i CENTOPf IA 
I FROGGER 
I SUCURI 



PAIFUXHA GALAcnCA 



COMBATE 



iviBTURA a mrraaio 



■ NAVE MAE ■ NIGHT GUNNER ■ PIRAMIDE INCA 

• FUNGOSMUT ANTES • ALERTA VERMELHO • SABOT AGEM 

• GALATICA "POLARIS " O AVENTUREIRO 

• SOS VEGA III a DUELO • MAZOGS 

• PERSEGUIDOR a SCRAMBLE • USS ENTERPRISE 



-( unuTAmos> 



ROtl Plus 



SOG Uma nova • man podarou veralo da ROT I 
a *tu Mntacional Sntama Oparacional Graf wo. 
MERGE 
PARA BREVE 



■ ASSEMBLER 

a DESASSEMBLER 

• COMPILADOR BASIC 



• OMERCAOOR 

• STARQUEST 
a ZARAKS 



• ESTRELANEGRA 
a CRIST AL MAGICO 

• GUERRILHACOSMICA 



• ORQA I lOrcamanio dOmanicol 

• ARQI (Arquivo da Oadoa) 

• CASH-FLOW 



EM TODO O BRASIL NAS MELHORES LOJAS DO RAMO 



Informacoes, Distribuicab e Vendas: 

J VA- MICROCOMPUTADORES LTDA. 

Av. Graca Aranha, 145 s/loja 01 - Rio de Janeiro - RJ 
CEP20.030 Tel.: (021) 262 6968 



HICRO PROCESS 
COMPUTADORES LTDA. 

- MICROCOMPUTADORES - TK. 2000/85/83 - CP. 500/300/200 
"APPLES" 

- MONITORES, IMPRESSORAS - PAPEL.FITAS, DISKETTE.ETC. 

- MANUTENQAO EQUIPAMENTOS (AVULSO E 91 CONTRATO) 

- PROGRAMAS DE CONTABILIDADE, ADMINISTR. IMOVEIS. 

- ELABORACAO DE PROGRAMAS ESPECIAIS 

- PERSONALIZACAO DE PROGRAMAS PARA FIRMAS E 
PROFISSIONAIS LIBERAIS 

- CONTROLE DE CLIENTES, TRATAMENTOS E CONTAS PARA 
CONSULTORIOS MEDICOS E DENTARIOS 

- PACOTES DE PROGRAMAS PARA ADVOGADOS, E 
CORRETORES DE VALORES E ACOES 

- OFERTAS ESPECIAIS (ORTN) 

• SUPERVISICALC (APPLE) (CP. 500/23) 20 

• OPEN MARKET/OVERNIGHT (CP. 500/23) 50 

• CARTEIRA DE ACOES (CP. 500/23) 40 

• CONTROLE DE OCORRENCIA PROCESSUAIS 

(CP. 500/ APPLE) 100 

- VIDEO GAMES (APARELHOS E CARTUCHOS) 

- REVISTAS, PUBLICAQOESTECNICAS 

- PRECOS DE SAO PAULO 

- DESPACHAMOS VIA VARIG POR NOSSA CONTA 

AMPLO FINANCIAMENTO 

TEL: 64-0468 

Alameda Lorena, n° 1310 - CEP 01424 

Sao Paulo 

••• ESTACION AMENTO PARA CLIENTES "* 



I 



A Comutacao 
revolucionar o quad! 




Sew* 



Renpac 



Veja^l^unidadede 



Teleinformatica 



trazef 11 



°sssr— — -- 

° ****** 
□ Cobem/ranaoonal. 



seus 




I 



>1 Embratel conta 
para daros ultimos 



de Pacotes vai 
o da Teleinformatica. 



1954 esta pintando um quadra muifo 
promis5orj)ara qucm vivc o mundo da 
teleinformatica. 

1954 e o ano do langamento dos 
Scrvigos Renpac, oferecidos atraves da Rede 
Publica de Comunicagao por Comutagao de 
Pacotes, via Embratd. 

Com os Sovigos Renpac os usuarios 
compartilham recursos de Iransmissao 
por mensagens divididas em bbcos-padrao, 
os pacotes. 

De imediato, isso quer dizer inumeros 
beneffcios que dao maior flexibilidade 
e melhor desempenho a comunicagao de 
dados. 

No quadra ao lado estao algumas 
das principals vantagens dos Servigos 
Renpac 

rias ainda ha algunspontos muito 
irrportantes a serem deddkios. A serem 
decididos com voce. 

Procure a Embratel e tale das 
necessidades da sua empresa, seja ela 
grande, media ou pequena. A Embratel 
acredita que ninguem melhor do que voce 



com voce 
retoques. 



para saber o que e melhor para voce 
mesmo. E se voce e um profissioml liberal, 
taca tambemo mesmo. Ha sempre uma 
aplicagao dos Servigos Renpac para atender 
economicamente ao seu pbblema. E tudo 
com a conhecida eliciencia da Embratd. 

Isso vale tambem para voce que 
produz equipamentos. Afinal, o langamento 
dos Servigos Renpac vai criar uma demanda 
por novos itens que a sua industria pode 
romeca. 

Para facilitar este nosso dialogo, aqui 
abaixo, a dircita, esta um cupom para voce 
prcencher e enviar a Embrafd. Envie hoje 
mesmo. Nos entraremos em contato com 
voce. De sua partidpa^ao efetiva para 
o mdhor uso dos Servigos Renpac 

Com ela, e so com ela, a Embratd 
pode dar os retoques finais no quadno de 
vantagens que os Servigos Renpac vao 
trazer para voce. 

Ministerio das ComunicagOes 




Empresa do Sistema TELEBRAS 
a sua Empresa de Comunicagao de Dados 



i 
I 

i 
I 
i 

I 
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Empresa Brasileira de Telecomunicagdes S. A. ■ Embratel 

Departamento de Coordenagao Comerdal 

Av. Preskiente Vargas. 1.012 - sala 912 - CEP 20071 ■ Rio de Janeiro - RJ 



NOME 

EMPRESA 

CARGO/FUNCAO 

ENDERECO 

CEP CIDADE 



EST ADO. 



Um duelo entre a Inteligencia Artificial e a Natural nos jogos de 
tabuleiro /nostra a importancia da programacao de jogos 



Inteligencia 
Artificial - 1 



Antonio Costa 
Crist ina Helena Bovo 



A Inteligencia Artificial esti se 
tomando cada vez mais popu- 
lar nos Estados Unidos, Euro- 
pa e Japao. Para se ter uma 
ide"ia disso, basta notar que um grande 
niimero de jornais e revistas jd publica- 
ram ensaios sobre ela. Entre as revistas, 
vale a pena citar Newsweek e Time; en- 
tre os jornais, o vetusto Le Monde. Tam- 
be'm e prova da popularidade dessa cien- 
cia o fato de robos inteligentes, cons- 
trufdos nos centros de pesquisa amen- 
canos, serem escolhidos como paranin- 
fos por jovens colegiais. 

E mais: os cursos de Inteligencia Ar- 
tificial nas Universidades Amencanas es- 
ta"o tao concorridos que e dificilimo con- 
seguir uma vaga neles. Enquanto isso, 
Japao e Estados Unidos lancaram-se 
num projeto para construir um compu- 
tador inteligente antes do fim do seculo 
(o chamado computador de 5? geraclo) 
e alocaram grande quantidade de recur - 
sos humanos e materials para levar 
adiante o referido projeto. 

Os en cant os da ciencia dos compu- 
tadores pensantes e dos robos estao co- 
mecando a seduzir tambCm os brasilei- 
ros. Em Sao Paulo, existem grupos de 
estudo sobre Inteligencia Artificial e es- 
tudantes da USP estao fundando uma 
sociedade dedicada a esta ciencia. 

Quais as razoes para a subita popula- 
ridade alcancada pela Inteligencia Arti- 
ficial? A primeira razSo e de ordem pra- 



tica. Muita gente pensa que os japoneses 
e americanos estao investindo tanto na 
Inteligencia Artificial que ela esti desti- 
nada a ocupar uma posicao dominante 
na Informatica do futuro. A segunda 
razao deve ser procurada no espirito 
aventureiro do homem. Este espirito faz 
com que as pessoas se encantem com 
robos inteligentes e miquinas pensantes. 

IMPORTANCIA 
DA PROGRAMACAO DE JOGOS 

As piramides do Egito sao, sem du- 
vida, uma das maiores realizacoes da 
Engenharia Civil. Para construi-las, os 
antigos egfpcios tiveram que dominar 
complexas te'cnicas de administracao, 
transportes, planejamento, fisica dos 
materials, etc. E para domina-las os en- 
genheiros do Vale do Nilo usaram um 
processo muito simples. Eles tentaram 
construir uma piramide... ela desmoro- 
nou; tentaram construir outra, que tam- 
Wm desmoronou. E cada piramide que 
desmoronava trazia novos conhecimen- 
tos aos egipcios. 

me"todo egfpcio de pesquisa ainda 
6 esporadicamente usado. A maior parte 
dos engenheiros, entretanto, nao o usa. 
Os engenheiros aeroniuticos, por exem- 
plo, nao testam um novo tipo de avifo 
construindo um prot6tipo e fazendo um 
voo experimental de Paris a Nova Iorque 
com passageiros a bordo. Eles cons- 



troem um modelo pequeno e barato do 
aviSo e o testam num tunel de vento. 

Os jogos e quebra-cabecas sa*o ta"o 
importantes para o especialista em Inte- 
ligencia Artificial quanto os modelos de 
aviOes para os engenheiros aeronduti- 
cos. £ atraves de jogos que novas te"cm- 
cas sao descobertas e testadas. Os jogos 
de aventura, por exemplo, foram inven- 
tados por especialistas em Inteligencia 
Artificial para experimentar me'todos de 
processamento da linguagem natural. 

A importancia da programacao de 
jogos e" tamanha que os industrials japo- 
neses, gente pritica que so investe em 
coisas de retorno garantido, colocaram o 
desenvolvimento de um programa capaz 
de jogar "GO" entre as suas metas prio- 
ritirias. Eles sabem que tal programa 
permitira" a seus cientistas descobrir e 
testar me'todos de reconhecimento de 
padrOes fundamentals para dar ao Japao 
a lideranca no campo da Informa'tica. 

A ARVORE DE JOGOS 

Uma estrutura como a da figura 1 e* 
denominada arvore. Ela e constituida 
por pontinhos (n6s) unidos entre si por 
curvas contfnuas (ramos). n6 de uma 
arvore 6 raiz se na"o for possfvel chegar a 
ele percorrendo ramos no sentido des- 
cendente. Uma folha 6 qualquer n6 do 
qual nSo se pode sair percorrendo a ar- 
vore no sentido descendente. No exem- 
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plo de arvore da figura 1, Ae raiz e L, 
M, N, F, G.H.IJeK sao folhas. Urn 
conjunto de n6s esta no nivel n se, par- 
tindo de qualquer urn dos nos dele, che- 
garmos a raiz, apos percorrer n ramos no 




Figura 1 - Exemplo de drvore 

sentido ascendente. Na figura 1 , os nos 
L, M e N estao no nivel 3. 

conceito de drvore foi introduzido 
pro posit al men te de maneira pouco rigo- 
rosa para evitar o formalismo matemiti- 
coeo jargao te'enico que poderia assus- 
tar quern esta" se iniciando na Informdti- 
ca. 

No estudo dos jogos de tabuleiro, 6 
co mum representarmos as continuacoes 
possiveis de uma posicSo por uma arvo- 
re. Suponhamos, por exemplo, que a si- 
tuacao possivel num tabuleiro de jogo 
da velha seja a mostrada na figura 2. A 
figura 3 mostra os tres lances que o joga- 



Figura 2 - 

Situacdo 
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Figura 4 - Os lances possiveis de X, seguidos dos lances possiveis de 



dor X pode fazer. Em cada uma das tres 
situacdes que poderao surgir apos o lan- 
ce de X, o jogador poderd fazer dois 
lances. A figura 4 mostra lances possi- 
veis do jogador 0, a partir dos lances 
possiveis de X. 

Se representarmos cada um dos tabu- 
leirinhos da figura 4 por um n6, teremos 
a estrutura denominada arvore de jogos. 



A figura 5 mostra a irvore de jogos cor- 
respondente a situacao da figura 4. 

AN ALISE DE UMA POSI^AO 

Vamos supor que a arvore de quatro 
niveis associada a uma posicao de um 
jogo de tabuleiro qualquer seja dada 
pela figura 6. O tabuleiro esti na posi- 
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Figura 5 - Uma drvore de jogos 







Figura 3- 
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cab representada pelo no A. O problema 
do computador 6 escolher um entre os 
lances que levam as posicoes representa- 
das pelos n6s B, C ou D. Para isto, ele 
avanca ate* as folhas da arvore e usa um 
critdno qualquer para avalid-las. Esta ava- 
liacao das posicoes representadas pelas 
folhas 6 denominada avaliacao estatica e 
6 feita por um programa chamado Ava- 
liador-estitico. 

Quanto melhor for para o compu- 
tador a posicao representada por uma 
folha, mais alto e o valor atribuido a ela 
pelo Avaliador-estdtico. No xadrez, por 
exemplo, se o computador estiver jogan- 
do com as brancas, quanto mais pecas 
brancas houver, mais alto e o refendo 
valor. E quanto mais pecas pretas hou- 
ver, mais baixo 6 o valor. Se o rei branco 
estiver sob ataque, o valor decresce. Se o .', 
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rei preto estiver sob ataque, o valor cres- 

ce. 

computador tentara" escolher as jo- 

gadas que levem ao maior valor possivel. 

Ele sabe pordm que seus temi'veis ad- 

versirios humanos, dotados de uma ate' 

agora invicta Inteligencia Natural, tenta- 

rlo escolher os lances que levem ao me- 

nor valor possfvel. Devido a isto, o 

computador 6 denominado Maximiza- 

dor e o humano Minimizador. 

No nivel quatro, quern vai escolher 

os lances e o Minimizador e, portanto. o 

lance de menor valor sera 1 escolhido. 

Dentre as folhas M, Ne K sera escolhida a 

folha K, que vale tres. Portanto, o valor 

que o computador conseguird se ele che- 

gar a posicSo I e pelo menos tres. (Ele 

poderd conseguir cinco se a Inteligencia 

Natural "bobear".). Se ele chegar em J, 

conseguira' cinco pontos. (Existe a possi- 

bilidade de ele conseguir oito, mas 6 

bom nio contar com isto.) Podemos di- 

zer entio que o valor do n6 I £ tres e o 

valor do n6 J £ cinco. Quern vai escolher 

entre I e J i o Maximizador. valor es- 



Figura 6 - Arvore 
de jogos com 
quatro nfveis 




H 2 



nivel 



nivel 1 



nivel 2 



nivel 3 



nivel 4 




DEMONSTRACAO DO ALBORITMO MINIMAX ••••••••• 



60 REM ALFA 
70 REM HNI 
80 REM NI 
90 REM I 
100 REM PP 



10 REM ••••*•••• 

12 REM 

20 REM——————— VARIAVEIS —————— 

40 REM PILHA ARMAZENA VARIAVEIS R0TINA8 RECURS I VAS. 
S0 REM BETA MELHOR VALOR DO PONTO DE VISTA DO MINIMIZADOR. 
MELHOR VALOR DO PONTO DE VISTA DO MAXIMIZADOR. 

NIVEL EM SUE AVALIADOR ESTATICO VAI ATUAR. 

INDICADOR DE NIVEL. 

CONTROLE DE FOR NEXT. 

PONTEIRO DE PILHA. 
110 REM NT NUMERO DE LANCES DISPONIVEL NUMA DADA POSICAO. 
120 REM ML MELHOR LANCE DO MINIMIZADOR OU DO MAXIMIZADOR 

APOS UMA BUSCA PARCIAL. 
130 REM CRT BANDEIRA INDICANDO QUE BERADOR DE 

MOVIMENTOS NAO ENCONTROU NENHUM LANCE. 
140 REM VA VALOR CALCULADO PELO MAXIMIZADOR E PELO 

MINIMIZADOR. 
1S0 REM 

160 dim pilha (200) 

170 beta-999: alfa— 999: cls 

1b0 input "em que nivel avaliador estatico vai atuar"|hni 

190 ni-0:pp-0: i-i 

200 gosub 900: rem maximizador 

210 print-0 melhor lance e* "i ml 

220 print "0 valor obtido com este lance e' "i va 

230 END 
270 REM 
900 REM———— MAXIMIZADOR — — — — 

910 REM VARIAVEIS LOCAIS: I, NT, NI, ALFA, BETA, ML 

920 REM—————— — — — — — — — " 

930 IF NI-MNI THEN GOSUB 3000: RETURN: REM SE CHEGAMOS A 

UMA FOLHA, CHAMAMOS AVALIADOR ESTATICO. 
940 SOSUB 4000: REM QERADOR DE MOVIMENTOS 
9S0 IF NT-0 THEN GOSUB 3000: RETURN: REM SE NAO HA MOVIMENTOS 

CHAMAMOS AVALIADOR ESTATICO 
960 ALFA- -999 
970 REM VARIANDO I DE 1 ATE' NT, EXAHINAMOS TODOS OS 

MOVIMENTOS GERADOS. 
980 FOR 1-1 TO NT 
983 IF ALFA >• BETA THEN PRINT STRING* (2»NI ,"-") I 

:PRINT -OCORREU UNA PODA ALFA" : I-NT: SOTO 1070 
GOSUB S000:REM COLOCA VARIAVEIS LOCAIS NA PILHA 
NI-NI»l:REM DESCE UM NIVEL 

PRINT STRING* ( 2»NI, "-"> I "NIVEL: "!NI I "LANCE: " I I 
GOSUB 2000: REM CHAMA MINIMIZADOR 
GOSUB 6000: REM RESTAURA VARIAVEIS LOCAIS. 
REM MINIMIZADOR COLOCOU VALOR DESTE LANCE EM VA. 
REM ALFA DEVE CONTER VALOR DO MELHOR LANCE DO 

PONTO DE VISTA DO MAXIMIZADOR E ML DEVE CONTER 
MELHOR LANCE. ASSIM, 8E VA>ALFA, ALFA DEVE 
SER FEITO IOUAL A VA E ML, IBUAL A I. 
1060 IF VA>ALFA THEN ALFA-VA:ML-I 

1070 NEXT I 
1080 VA-ALFA 
1090 RETURN 



990 

1000 

1010 

1020 

1030 

1040 

1030 



2000 
2010 
2020 
2030 
2040 

2030 
2060 

2070 
2080 
2090 
2092 

2100 
2110 
2120 
2130 
2140 
2130 



2160 
2170 
2180 
2190 
2200 



3010 
3020 
3030 
3040 



4000 

4010 
4020 
4030 
4040 
4030 
4060 
3000 
3010 
3020 
3030 
3040) 



3060 
3070 



6030 
6040 

6030 



REM———— MINIMIZADOR —————— 

REM VARIAVEIS LOCAIS: I, NT, NI, ALFA, BETA, ML 
REM——— — — — — — — — — — 

REM 

IF NI-MNI THEN GOSUB 3000: RETURN: REM NAS FOLHAS, 

CHAMAMOS AVALIADOR ESTATICO. 
SOSUB 4000: REM GERADOR DE MOVIMENTOS 
IF NT-0 THEN GOSUB 3000: RETURN: REM SE ESTAMOS SEM 

nOVIMENTO, CHAMAMOS AVALIADOR ESTATICO 
BETA-999 

REM INICIO DA ANALISE DOS MOVIMENTOS. 
FOR I»l TO NT 

IF BETAOALFA THEN PRINT STRING* (2«NI ,"-"> I : 

PRINT "OCORREU UMA PODA BET A ": I -NT : SOTO 2170 

GOSUB 5000: REM ARMAZENA VARIAVEIS LOCAIS 

NI-NI*l:REM PROXIMO NIVEL 

PRINT STRING*(2«NI,"-">1 "NIVEL: "INII "LANCE:"! I 

GOSUB 900:REM CHAME MAXIMIZADOR PARA AVALIAR LANCE. 

GOSUB 6000: REM RESTAURA VARIAVEIS LOCAIS. 

REM VA CONTEM VALOR DESTE LANCE. BETA CONTEM VALOR 

DO MELHOR LANCE DO PONTO DE VISTA DO MINIMIZADOR. 
SE VA<BETA, DEVEMOS FAZER BETA-VA E ML- I. 

IF VA<BETA THEN BETA-VA: ML- I • 
NEXT I 
VA-BETA 
RETURN 
REM 
REM———— AVALIADOR ESTATICO ——————— 

REM AVALIADOR ESTATICO E' VOCE MESMO. 

PRINT STRING* (2«NI, "-"> I "QUAL VALOR DO LANCE"! Il 

INPUT VA 

RETURN 

REM 

REM— — — — — GERADOR DE MOVIMENTOS — — — — — 

REM GERADOR DE MOVIMENTOS E" VOCE MESMO. 

PRINT STRING* (2»NI, "-•) I "OUANTOS SUBLANCES TEM LANCE"! 

PRINT II "DO NIVEL-INII 

INPUT NT 

RETURN 

REM 

REM——— SUBROTINA PUSH ——————— 

REM ARMAZENA VARIAVEIS LOCAIS NA PILHA PARA EVITAR 

REM QUE ELAS SEJAM ALTERADAS POR CHAMADAS RECURS I VAS. 

P ILHA (PP) -I : PP-PP* 1 : PILHA (PP) -NT: PP-PP* I 

PILHA (PP) -NI : PP-PP* t : PILHA (PP) -ALFA: PP-PP* 1 

P I LHA ( PP ) -BET A : PP-PP* 1 : P I LHA ( PP ) -ML : PP-PP* 1 

RETURN 

REN 

REM— — — SUBROTINA POP ———————— 

REM RETAURA VARIAVEIS LOCAIS POSTAS NA PILHA 

PELA SUBROTINA PUSH. 

pp-pp- i : ml -pilha (pp> : pp-pp- i : beta-p i lha (pp> 

PP-PP-l:ALFA-PILHA(PP) : PP-PP- 1 :NI -PI LHA (PP) 
PP-PP- 1 t Nt-P I LHA < PP ) : PP-PP- 1 : I -P I LHA ( PP > 
RETURN 
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colhido seii cinco e, dcsse modo, o va- 
lor de E sera cinco. Em B escolhe o Mi- 
nimizador e a escolha recaui, evidente- 
mente, sobre E. O valor de B sera" cinco. 
valor de D 6 um (1), pois esta i a me- 
lhor escolha sob o ponto de vista do Mi- 
nimizador. computador termina a 
anilise escolhendo, entre os n6s B (cin- 
co pontos), C (ires pontos) e D (um 
ponto), aquele que tern maior valor. A 
escolha recaira sobre B. 

O algontmo que acabamos de descre- 
ver 6 chamado Mini max. Este nome foi 
escolhido para lembrar-nos de que o 
Minimizador se reveza com o Maximiza- 
dor na escolha dos lances. 

PROGRAMA DE DEMONSTRACAO 

Na listagem 1 , oferecemos aos leito- 
res um pequeno programa em BASIC 
para demonstrar o funcionamento do 
algontmo Minimax. Um bom modo de 
estudar o referido programa e" examinan- 
do como ele analisa a drvore de jogo da 
figura 7. 

Na lista 200 (listagem 1), chamamos 
uma rotina que faii o papel de Maximi- 
zador. Na linha 930, o Maximizador 
verifica se o no a ser analisado 6 uma 
folha. Caso seja uma folha, a rotina que 





RAIZ 




\ Nesta regiao da arvore 


A/5 


\ ocorre uma poda BETA 




B A / 


C 5 D 7 


E 3 ' A ^N 

1 / \ ! 


Figura 7 - Uma drvore de fogoi 


'/ \ ; 

^^ y 



faz a avaliacao estitica e invocada. Esta 
rotina apenas perguntara ao usuixio qual 
o valor da folha (num jogo ela deveria 
ser capaz de fazer a avaliacao estdtica). 

Na linha 940, chamamos o gerador 
de movimentos e ele perguntara' ao 
usuirio em quantos lances se subdivide 
o n6 que esta" sendo examinado. Num 
jogo, o gerador de movimentos fornece 



uma lista com todas as continuacdes da 
posicao que lhe for apresentada. Entre 
as linhas 980 e 1070, os NT lances for- 
necidos pelo gerador de movimentos sa"o 
avaliados. E quern os avalia? Minimi- 
zador, e claro. 

Se examinarmos o Minimizador (en- 
tre as linhas 2000 e 2190), veremos que 
ele usa o Maximizador na linha 2130. 



tfTrPEQPLE 

Computacao 
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LANCE 
? 5 



1 DO NIVEL 2 ? 



DEMONSTRACAO DE PODA BETA 



em que nivel o avaliador estatico vai atuar? 3 
quantos sublances tem lance 1 do nivel ? 2 
==nivel: i lance: i 

==quantos sublances tem lance 1 do nivel 1 ? 2 
==«nivel: 2 lance: 1 



=«— QUANTOS SUBLANCES TEM 

===»QUAL VALOR DO LANCE 

==.«NIVEL: 2 LANCE: 2 

«==QUANTOS SUBLANCES TEM 

»=«=QUAL VALOR DO LANCE 

==NIVEL: 1 LANCE: 2 

—QUANTOS SUBLANCES TEM LANCE 2 DO NIVEL 1 

o.o.nivel: 2 lance: I 

.—QUANTOS SUBLANCES TEM 

....QUAL VALOR DO LANCE 1 ? 

==OCORREU UMA PODA BETA 

MELHOR LANCE E' 1 

VALOR OBTIDO COM ESTE LANCE 



LANCE 
? 7 



LANCE 
? 3 



2 DO NIVEL 2 ? 



1 DO NIVEL 2 ? 



E' 



Em resumo: o Minimizador usa o Maxi- 
mizador e vice-versa. Isto se chama re- 
cursividade cruzada. Na recursividade 
cruzada, o Minimizador podera" alterar os 
valores das variiveis do Maximizador. 
Para evitar isto, antes de chamar o Mini- 
mizador na linha 1020, guardamos na 
matnz pilha os valores de todas as va- 
niveis que nao podem ser alteradas. Pro- 
gramadores de LISP ou de Pascal cha- 
mam estas varidveis de variiveis locais. 
Uma vez que o controle voltou do Mini- 
mizador para o Maximizador, a rotina 
6000 i invocada na linha 1030, restau- 
rando as varidveis locais. 

Em VA (ver listagem) esti o valor do 
tabuleiro avaliado pelo Minimizador. 
Este valor 6 comparado com ALFA e, se 
for maior, ALFA 6 feito igiial a VA e o 
lance correspondente i armazenado em 
ML. Esta operacao, repetida ap6s a ava- 
liacao de cada lance, terminara' por co- 
locar em ALFA o valor do melhor 
lance. Na linha 1080, VA 6 feito igual a 
ALFA, isto e\ igual ao valor do melhor 



lance. Quando o controle retorna do 
Maximizador na linha 210, ML conte'm 
o melhor lance e VA contain o valor do 
melhor lance. 

A PODA ALFA-BETA 
Examinando a linha 1060, observa- 
mos que o Maximizador so aceitara" o 
valor fornecido pelo Minimizador se ele 
for maior que ALFA. Isto significa que, 
se dentro do Minimizador BETA 
tornar-se menor do que ALFA, nao 6 
necessirio examinar o resto dos lances. 
Isto porque a continuacfo da analise dos 
lances ou levaria a valores maiores que 
BETA ou a valores menores ou iguais a 
BETA. E dentro da hipotese de que 
BETA ja" se tornou menor que ALFA, 
valores menores do que BETA seham 
recusados pelo Maximizador. E valores 
maiores que BETA seriam recusados 
pelo Minimizador* na linha 2160. Pode- 
mos, entao, interromper a analise na 
linha 2092 sempre que BETA se tornar 
menor do que ALFA. Esta interrupcao 
se denomina poda BETA. 



Por razoes analogas as expostas no 
paragrafo anterior, sempre que ALFA se 
torna maior ou igual a BETA dentro do 
Maximizador, podemos interromper a 
analise. Esta interrupcao 6 chamada 
poda ALFA. 

Na listagem 2, fornecemos um exem- 
plo de execucSo do programa de de- 
monstracSo da listagem 1 usando a arvo- 
re da figura 7. Como o leitor pode veri- 
ficar, uma poda BETA ocorre neste 
caso. 

MINIM AX EM LISP 

A primeira coisa que uma pessoa m- 
teressada em Inteligencia Artificial deve 
fazer e* aprender LISP e PROLOG. Estas 
linguagens sao as ferramentas poderosas 
e flexiveis que estao tornando a Inteli- 
gencia Artificial possfvel. 

Para dar ao leitor uma ide"ia de 
como 6 LISP, fornecemos na listagem 3 
o algoritmo Mini max no LISP padrao do 
TRS-80. Na listagem 4, a irvore da figu- 
ra 7 6 analisada usando o programa da 
listagem 3, isto e\ o Mini max em LISP. 




ARVORE"* "| 



EXPR PROCEDURE TESTE NIL I 
BEGIN SCALAR NMAXIMOl 

PRIN2 "QUANTOS NIVEIS TEM 

NMAXIMO:-READ NIL1 

PRINT MINMAXCRAIZ, 0.-99. 99)1 
ENDI 



EXPR PROCEDURE QERADOR TABULEIRO I 

BEGIN PRIN2 "COHO SE CONTINUA A PARTIR DE 

PRIN1 TABULEIROI PRIN2 "7 " I 

RETURN READ NILI 
ENDI 



EXPR PROCEDURE AVALIADOR TABULEIRO I 
BESIN PRIN2 "QUAL VALOR DE "I 

PRIN1 TABULEIROI PRIN2 "7 " I 

RETURN READ NIL I 

MM 



EXPR PROCEDURE MINMAX (TABULEIRO. NIVEL, ALFA, BETA) I 
BEGIN SCALAR M, M. TABULEIROS.MLANCEl 

IF NIVEL • NMAXIMO THEN RETURN AVALIADOR TABULEIROI 
TABULEIROS I" QERADOR TABULEIROI 

IF NULL TABULEIROS THEN RETURN AVALIADOR TABULEIROI 
M :• ALFAl 
REPEAT 
BESIN TABULEIRO: -CAR TABULEIROSl 

W:-MINUS MINMAX (TABULEIRO, NIVEL ♦ 1, MINUS BETA, MINUS M) 
IF H > M THEN BEGIN M:-WI MLANCE: -TABULEIRO ENDI 
TABULEIROB:-CDR TABULEIROSl 
IF M > BETA THEN T ABULE I ROS : - O I 
END 
UNTIL NULL TABULEIROSl 

IF NIVEL -O THEN RETURN LIST (M, MLANCE) 
ELSE RETURN Ml 
ENDI 





Listagem 4 


♦TESTE () ; 








QUANTOS NIVEIS TEM A ARVORE? 


*3 






COMO SE CONTINUA A PART I R DE 


RAIZ? *(A 


B> 


COMO SE CONTINUA A PART I R DE 


A? *(C 


D) 




COMO SE CONTINUA A PART I R DE 


C? *<) 






QUAL O VALOR DE C? »5 








COMO SE CONTINUA A PART I R DE 


D? »<> 






QUAL O VALOR DE D? *7 








COMO SE CONTINUA A PARTIR DE 


B? #(E 


F) 




COMO SE CONTINUA A PARTIR DE 


E? ♦() 






QUAL O VALOR DE E? »3 








(5 A) 








(5 A) 
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SINTA NOS DEDOS ESTA NOVA 

CONQUISTA 



Ja nao 6* preciso escolher. Agora voce tern o microcomputador DGT— 1000, com design moderno 

e novas incorporacoes que Ihe conduzirao a decisao certa. 

DGT— 1000 6 modular e dependendo da sua necessidade ele se expande ate* urn grande sistema. 

A DIGITUS Ihe assegura a possibilkJade de expansao do DGT— 1000 

atrave's das interfaces que comercializa: 



Interface printer, paralela para irhpressora tipo centronis. 

Interface para unidade de disco flexrvel 5 1/4 (ati 4 

unidades da 184 KB cada). 

Expansao de mem6ria at* 64 KB. 

Interface color ida com alta resolucao graTica. 

Interface RS 232. 

Sintetizador de voz. 

Sistema operacional DGP/M totalmente compatfvel com 

CP/M (com o DGP/M vooi podara" usar ot famosos programs* 

WORDSTAR e dBASE III. 




Rua Gives, 150 Belo Horizonte 
Tel.: (031) 3324300 Telex: 3352 



Aracaju 

Betern 

Fkxianopolis 



Baruen 
Campinas 
Goiania i 



Brasilia - 
Curitiba 
Joao Pes so a 



Brto Honronte 
DMnbpotit Fortaleza 

txindnna Maceio Monies Claros 



Pocos da Caldas 



Salvador 
■ ljubate 



Niterot 

Ribeirao Prelo 
>7 K)93«6)'«9l/24M33*2a5 &*:.; 
S'liSSB 391 



None Hambufgo 
' Rio de Janeiro 



Um programs de Engenharia para o TRS-80 Color, 
mas que roda em outros BASICs, com poucas modificacoes 



Resolucao de Trelicas 
Hiperestaticas 



Fermi'n Jimenez Murillo 



E~| ste programa resolve Treli9as Hiperestaticas (Andlise 
Matncial de Estruturas) utilizando um micro TRS-80 
Color Computer com 32 Kb e uma impressora LINE 

PRINTER Vn. 

O numero maximo de barras que o programa permite 6 de 
62, o numero maximo de n6s € de 62 e o numero maximo de 
carregamento 6 de 4, com 32 Kb de RAM. Para equipamentos 
com mais ou menos mem6ria veja as observacoes ao final do 
artigo. 

OPERATES INICIAIS 

Primeiro deve-se fazer um esquema da trelica, como mos- 
trado na figura 1 .b, em que se colocard uma seta para cada des- 
locamento em cada n6 (horizontal e vertical no sentido positi- 
vb), que serffo numeradas sequencialmente. 

Cada barra deveri ser enta"o numerada e orientada. grau 
de liberdade de estfutura (NP) serf igual ao numero de setas e 
cada barra orientada teni duas setas iniciais (Nl e N2) e duas 
setas finais (N3 e N4). (Em qualquer restrica'o, deve-se assumir 
que a seta tern numero NP+1). 

A tabela de dados deve ser construida colocando-se para 
cada barra os respectivos valores de numero da barra, Nl , N2, 
N3, N4, H, V e Area (veja figura 2 e listagem). H e V sfo as co- 
ordenadas do fim da barra, considerando-se o initio como ori- 
gem. 

Por ultimo, deve-se construir a matriz de carregamento 
colocando-se uma forca (se tiver) correspondente a cada des- 
locamento. Esta matriz teri tie's colunas: numero do desloca- 
mento, numero da condicJTo de carregamento e forca na dire- 
cffo do deslocamento (e* preaso colocar o sinal de menos (-) 
se a forca estiver agindo no sentido contrdrio a sua respectiva 
seta.) 

A tabela de dados e a matriz de carregamentos sffo feitas 
atrave's de linhas de programas com o comando DATA. Assim, 
e preaso que se apaguem as linhas 200 em diante e que se en- 
trem novas linhas com os dados na forma do comando DATA, 



EXEMPLO 




R|i0)w 


o Mwo maioiico ao figuro M 














E ' 2 


00 000 Kg /cm 2 














AREA ' 


St ASSUMWA 50 on* EM TOOAS AS 


BABBAS 










HP '23 














NM ■ 2S 














NC ' 


1 

340 
















340 


340 


340 








M 


10 












• 
190 Kfl g| 




IH>« 


340 


i. 




1 

• 


- 


4 ^? 


" y 






f 


340 


1 
! 


Jr 


1 






ii il ■ 


















I ■ "1 • <««. 






—I 

III 14 




































M 




4 






" — ^_^ 





12 
fa 


M 










{**' 


• *4J » "?0 t "22 


»** 












17 


• 2i 23 


23 




Fif 14 


MATBlZ 


de 


CA44C4AMENT0 








2 






- 540 










4 






- 340 










• 






-340 










• 






- 3 40 










10 






- 340 










12 






- 340 










14 






- 340 











Figura 1 

colocando-se tres virgulas apos o ultimo dado para indicar fim 

de dados. 

Para visualizar isso, podemos ver o exemplo da figura 1, 
cujos dados estao nas linhas 200 em diante do programa apre- 
sentado ao final. 
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PROJETO — EXEMPLO 1 

CHLCULO OE TRELICRS - RMRLISE MRTRICIRL OE ESTRUTURRS 



GRflU DE LIBEROROE 
NUM. OE BRRRRS ■ 
CONO. OE CRRREG. i 
MOO. OE ELR8T. . 

TROELA OE DHOOS 



iO"CM22 



N| N2 M3 114 



H 



RRER 



0RRRR 
PHHHM 



9 
f 
7 
9 
9 

ie 
li 

12 

13 
14 
IS 
1C 
17 
19 
19 

■mm zi 

ORERR 22 

BRRRR Z3 
0RRRR 24 
ORRRR 29 



25 26 

1 2 

3 4 

9 6 

7 8 

9 10 

11 12 

13 14 

26 26 
16 17 
13 19 
20 21 
22 23 
24 29 



1 
16 

3 
18 

B 



20 21 

20 21 

22 23 

22 23 

24 29 

24 29 



13 14 

19 26 
16 17 
16 19 

20 21 
22 23 
24 29 

19 26 
16 17 

3 4 

16 19 

9 6 

20 21 
7 



11 12 
11 12 
13 14 



179.6000 
175.6000 
179.0000 
179.0000 
179.0000 
173.6006 
175.MM 
179.MM 
356.6006 
175.0000 
179.0000 

its. mm 

179.0000 

350.6660 
179.0000 

6.6000 
179.0000 

C WW 
179.0000 

0.0000 
179.0000 

17910000 

0.0000 

179.0000 



45.6666 
45.0000 
49.0000 
45.0000 

-49.0000 

-45.6606 

-49. ( 

-45.1 

0.6000 
0.6000 
0.0000 

-43! 0000 
90.0000 

~99. 0990 
135.6006 
-135.0060 
1 - < . PJ -*c 
139.0000 
135.0000 
90. 0000 

45.' < 



soiseee 

39* 9999 
90.0000 

soioooo 

9o!o0O0 

90.0000 

30. 601 
50.0000 

90.0000 

50.0066 
50.0066 
39» 9099 
90.0000 
59. 9999 
50.0000 

soioooo 

30.0000 

50.0000 



RS SEGUINTES COLUNRS ESTRO NR ORDEM ORS CONOICOES DE CRRREGRMENTO 
MRTRIZ OE MRTRIZ OE ESFORCOS NR8 

CRRREGRRENTOS CKF> OESL0CR?iNT0S"<.C»1> 9RRRRS <«*> 



1 

2 
3 

4 

9 

6 

7 

9 

9 

19 

11 

12 

13 

14 

19 

16 

17 

19 

19 

29 

21 

22 

23 

24 

29 



0. 
-380, 

0. 
-380. 

0. 
-300. 

0. 



0. 
-300. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
9. 
9. 



1 

2 

3 

4 

9 

6 

7 

9 

9 

19 

11 

12 

13 

14 

19 

16 

17 

10 

19 

20 

21 

22 

23 

24 

29 



0.032034 
-0.161401 

0.037297 
-9.213977 

0.039691 
-0.234314 

0.030787 
-0.235700 

0.025»23 
-9.234314 

0.024277 
-0. 2135 77 

0.029540 
-0.161461 

0.961574 

0.017241 
-0.213740 

0.024630 
-0.234003 

0.030707 
.-0.237663 

0.036944 
-0.234603 

0.044333 
-0.213740 



1 

2 
3 

4 

9 

6 

7 

9 

9 

10 

11 

12 

13 

14 

19 

16 

17 
18 
19 
20 
21 
22 
23 
24 
29 



-5340.4852 

-4977.5506 

-3014.6323 

-3051.7050 

-3091.7058 

-3014.6322 

-4977.3566 

-5340.4891 

9172.2222 

4433.3333 

3694.4444 

3694.4443 

4433.3331 

9172.2220 

-762.9265 

190.0000 

-030.8772 

306.0001 

-933. 1972 

1140.0000 

-933.1971 

300.0001 

-030.0771 

199a 9999 

-762.9264 



Figura 2 - Exemplo de saida do programa 



OPERAgAO DO PROGRAMA 

Se o equipamento for um TRS-80 Color Computer com 32 
Kb, primeiro deve-se acionar PCLEAR 1 , que reserva aproxi- 
madamente 30 Kb para operar o programa. Ao executar o pro- 
grama com RUN aparecerffo no video as indicacOes necessirias 
para: 

- entrar com o nome do projeto; 

- entrar com NP (grau de Hberdade), NM (niimero de barras) 
e NC (numero de condicOes de carregamento); 

- entrar com as unidades de forca e longitude ; 

- entrar com o M6dulo de Elasticidade. 

Todos estes dados serfo pedidos pelo programa em forma 
de INPUT. Posteriormente , o programa fomece a tabela de 
dados, as condicoes de carregamentos, a matnz de deslocamen- 
to e os esforcos nas barras, lembrando que a CompressSo e 
considerada — e Tracffo +. 

OBSERVANCES 

Algumas observacOes devem ser feitas a respeito do progra- 
ma: 
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- As unidades devem ser coerentes com o M6dulo de Elasti- 
cidade. Se assim na"o o forem, ou caso se coloque um Modulo 
de Elasticidade errado, os deslocamentos sofrerao vanacdes. 
mas os esforcos nas barras serfo quase que os mesmos. 

- Para efeito de preenchimento da tabela de dados pode-se as- 
sumir a a*rea das barras aproximada e os esforcos nas barras 
quase que nfo mudarfo. 

- Caso exista uma forca inclinada agindo em um n6 (uma for- 
ca de vento, por exemplo), esta devera decompor-se em duas, 
uma horizontal e outra vertical. 

- Lembramos que um apoio fixo restringe dois deslocamen- 
tos, enquanto um apoio m<5vel restringe apenas um. Para cada 
restnca"o deve-se assumir uma seta de numero (NP+1). 

- Para uma trelica razoavelmente grande, o computador de- 
mon um pouco no processo matricial. Num TRS-80 Color, o 
exemplo da figura 1 demora aproximadamente sete minutos e 
meio. 

- Para os que na*o possuem impressora, basta mudar as ins- 
tructs PRINT # -2 (que comanda a impressora no TRS-80 
Color) para PRINT. 

- me'todo usado 6 o dos Deslocamentos. Para inversao da 
matriz utilizou-se o me'todo GAUSS-JORDAN, com as simpb- 
ficacoes para matnz sime'trica. 

- programa aceita qualquer sistema de umdades, desde que 
estes sejam coerentes. 

- Para um equipamento com 16 Kb, ou enta"o com 48 ou 64 
Kb, basta alterar a linha 16 do programa, dimensionando para 
mais ou para menos a amplitude das variaveis matrizes e veto- 
res. I 



Fermi'n Jimenez Murillo 4 Diretor de Projetos de Univenidede Estaduel 
de Londrina, Perene". 



SoftKpistisn 

Revendedores Autorizados 



Rio de Janeiro 

Seietronix 

Pepubllco do Libona 25-A 

Rio de Janeiro - RJ 

aP 20061 



R t> EIJOK*. 25 95 
NOVO Friour DO - RJ 
tel 224205 

VOC 

AvBrasil. 10S/07 
Araruoma-Pj 
CtP 28970 

ENlWDvUOS 

A* Ro Branca 166 ttneo 

Rio de Janeiro RJ 

MjCI 

vise dePirata. 303(21 7 
Rio de Janeiro RJ 
W 267 0597 

rsMnambuco 

Belronlco ttooeie 
R Porto Aleve. 112 
Coruoru- PE 
C£P 55100 
AJogoos 

Eipoente 

Av Slqueira Compos. 838 

Moceio At 

W (062)223 3979 

SooPowto 



Av doj imorei 457 
Soo Paolo SP 

W. 61 4049 61 0946 



R Boa Visia. 314 - 3° 
Soo Paulo SP 
lei 36 7131R/32 



FotopNco 

Alameda Jurud. 434 
SooKxjlo SP 
tel 4215211 

Mb 

R f rw Caneca. 7 
Somas SP 
lei 351792 

Computertand 
*w Anaetca. 1996 

Soo Paulo -SP 
C8> 01228 

Uvtorta PoUedro 
R Aurora 704 
Soo Paulo SP 
•el 2216764 

wC MIc roc omputooores 
Av Estooos Unidos. 983 
Pkodcoba - SP 
lei 33 7018 

Rto Grand* do Sol 

Advancing 

R Andrados. 1560golena 
Molcon 518 Porto Afoore RS 
tel 26 8246 

1H Santos 

Pea Gtovto Poena. 41 
Porto Atogre-RS 

ap 90000 

India Center 

R Florono P»«oia 1112 com 

33/43 Sonla Mario RS 

lei (055)221 7120 

G#r#rnio LKJo 

Av Juno de Costimos. 1872 

CaxiajdoSui RS 

lei 221 1299 



R Amador Buena 855 
Rioeiroo Preto SP 
lei (016)636 0586 



Av Judo de CosMhoi 3240 
CaxKMdoSul RS 
tel 2213516 

Mlcromego 

R Juno deCojtiinoi 441 - 
1°anodr Novo Homburgo RS 
lei (0512)93 4721 



laMa 

oncdno 

Snooping Center flatgora 
MO 1°o«o 
Sotvodor BA 
lei (071)248 6666 

Santa Catartna 

Supermlcro Snow 
R dot Hheus. 10 li 6 
Ftortonapolls SC 

lei 22 8770 

Parana 

CompuHque 
AvBaW. 1750 
Curliiba • PR 
tel 2431731 

Modteon 

Av Mol Deodoro. 311 

Curititx>-PR 

tel 224 3422 

MlnasGcroti 

Computronlx 
R Sergwe. 1422 
Beto Horironte MG 
tel (031)225 3306 



R AauMeS U3DQ 441-A 

Beto Horiionte - MG 
lei (031)222 8903 

R AtM FigoeKeda 1072 
Pocos de Cawas MG 
tel (035) 721 1883 



Av Floriono FWxoto 396 

Ubertondro - MG 

lei 235 1413 235 7359 



D *B" t * c 

SON 302 WA I) 63 

Brasilia -DF 

tel (061)225 4634 
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RESOLUgAO DE TRELIQAS HIPERESTATICAS 



Resolucao de Trelicas Hiperestaticas 



PROGRAMA "TRELICA" 
FERMIN JIMENEZ MURILLO 



COND. DE CARREG. 



"CALCULO DE TRELICAS HIPERESTATICAS 
'LIMITES: GRAUS DE LIB. -62 . BARRAS-62 
-4 

7 ' INICIALMENTE PCLEAR1 E ANTES DE RODAR PROGRAMA: < DELETE 
200-> 

8 'PREENCHA OS DADOS A PARTIR DA LINHA 201 (EM FORMA DE DAT 
A) 

9 "NAO ESQUECA DE COLOCAR TRES VIRGULAS (,,,) APOS O ULTIMO 
DADO 

10 'AS UNIDADES DEVEM SER COERENTES 

11 CLS:PRINT*-2,":PRINT"CALCULO DE TRELICAS" 

12 PRINT'ANALISE MATRICIAL DE ESTRUTURAS" 

13 PRINT'ENTRE COM NOME DO PROJETO" : INPUTX* 

14 PRINT*-2,CHR| (31) ; "PROJETO - "XI 

15 PRINT*-2,CHR*( 30) ("CALCULO DE TRELICAS - ANALISE MATRICI 
AL DE ESTRUTURAS" 

16 DIMAT(63,63) ,P (62 ,4) , X(6 3, 4) , IX (62) ,F (4) 

17 PRINT"ENTRE COM : NP.NM.NC" 

18 INPUTNP,NF,NC 

19 PRINT*-2,":PRINT*-2,"GRAU DE LIBERDADE : ",NP 

20 PRINT*- 2, "NUM. DE BARRAS : ",NF 

21 PRINT#-2,"COND. DE CARREG. : ",NC 

22 PRINT'ENTRE COM AS UNIDADES (F,L)" 

23 INPUTA*,B$ 

24 PRINT'ENTRE COM E";INPUTE 

25 PRINT#-2,"MOD. DE BLAST. : " ,E»A»; "/"»B*> "2" 

26 PRINT*-2,"":PRINT*-2,"TABELA DE DADOS" :PRINT*-2, "" 

27 CLS:PRINT"TABELA DE DADOS" 

28 PRINT*-2," Nl N2 N3 N4 H 

V AREA" 

29 PRINT*-2,STRING»(65,"-") 

30 Wl-NP+1 

31 FORI-1TOW1 iFORJ-lTOWl : AT ( I , J) -0 :NEXTJ , I 

32 FORI-1TONF 

33 READMO,Nl,N2,N3,N4,H,V,A 

34 XL-SQR(H»H+V'V) :CS-H/XL:SN-V/XL 

35 PRINTMO; " : " ;N1 ;N2;N3;N4 ; H;V;A 

36 PRINT*'-2,"BARRA";MO, 

37 PRINT*-2, USING"****" ;N1,N2,N3,N4, 

38 PRINT»-2,USING"******.****";H,V,A 

39 Tl-E'A'CS'CS/XL 

40 T2-E*A*CS"SN/XL 

41 T3-E«A»SN»SN/XL 

42 AT(N1,N1)-AT(N1,N1)+T1 

43 AT(N1,N2)-AT(N1,N2)VT2 

44 AT(N1,N3)-AT(N1,N3)-T1 

45 AT(N1,N4)-AT(N1,N4)-T2 

46 AT(N2,N1)-AT(N2,N1)+T2 

47 AT(N2,N2)-AT(N2,N2)*T3 

48 AT(N2,N3)-AT(N2,N3)-T2 

49 AT(N2,N4)-AT(N2,N4)-T3 

50 AT(N3,Nl)-AT(N3,Nl)-Tl 

51 AT(N3,N2)-AT(N3,N2)-T2 

52 AT(N3,N3)-AT(N3,N3)+T1 

53 AT(N3,N4)-AT(N3,N4)+T2 

54 AT(N4,N1)-AT(N4,N1)-T2 

55 AT(N4,N2)-AT(N4,N2)-T3 

56 AT(N4,N3)-AT(N4,N3)+T2 

57 AT(N4,N4)-AT(N4,N4)+T3 

58 NEXTI 

59 PRINT*-2, STRING* (65,"-") 

60 PRINT"<AGUARDE>" 

61 PRINT*-2."AS SEGUINTES COLUNAS ESTAO NA ORDEM DAS CONDIC 
OES DE CARREGAMENTO" 

62 FORI-1TONP:IX(I)-0:NEXTI 

63 AX— 1 

64 FORI-1TONP 

65 irilX(I) )<>0THEN69 

66 T-ABStAT(I.I)) 

67 IF(T-AX)<-OTHEN69 

68 IC-IiAX-T 

69 NEXTI 

70 IF(AX)<-0THEN79 

71 IX(IC)-I:PV-AT(IC,IC) :AT(IC,IC) -1 :PV-1/PV 

72 FORJ-lTONP:AT(IC,J)-AT(IC.J)»PV:NEXTJ 
7 3 FORI-1TONP 

74 IPII-IO-0THEN77 

75 T-AT(I.IC) :AT(I.IC)»0 



76 FORJ-lTONP!AT(I,J)-AT(I,J)-AT(IC,J) «T:NEXTJ 

77 NEXTI 

78 GOT06 3 

79 IF(AX)-0THEN122 

80 FORI-1TONP:FORJ-1TONC:P(I,J)-0:NEXTJ,I 

81 PRINT*-2,"":PRINT*-2,"MATRIZ DE CARREGAMENTOS ("A$")" 

82 PRINT#-2,STRINO*(28,"-") 

83 READI,J,P 

84 IF(I)<-0THEN86 

85 P(I,J)-P:GOT083 

86 PRINT'MATRIZ P" 

87 FORI-ITONP 

88 PRINT#-2,CHRt(26) :PRINT#-2 .USING"**"; I ; 

89 FORJ-1TONC 

90 PRINT»-2,USING"»»»« H Wi»»*. — +*';P(I,J) , 

91 PRINTI;J;P(I,J) 
9 2 NEXTJ.I 

93 PR1NT#-2,"":PRINT*-2,"":PRINT#-2,"MATRIZ DE DESLOCAMENTO 
S fB$">" 

94 PRINT*-2,STRING$(27, "-") 

95 FORI-ITONP :FORJ-1TONC:X(I,J)-0 

96 FORK-lTONP!X(I,J)-X(I,J)+AT(I,K) »P(K,J) 

97 NEXTK.J.I 

98 PRINT'MATRIZ X" 

99 FORI-ITONP :FORJ-lTONC 

100 PRINTI;J,X(I,J) , :NEXTJ,I 

101 FORI-ITONP 

102 PRINT#-2,CHR*(26) :PRINT#-2, USING"**"; I ; 

103 FORJ-1TONC 

104 PRINTO-2, USING"*******. ******'; X( I , J) , 

105 NEXTJ.I 

106 PRINT'MATRIZ DE ESFORCOS" 

107 PRINT#-2,":PRINT*-2,"":PRINT*-2,"ESFORCOS NAS BARRAS ( 
"A$")" 

108 PRINT*-2,STRING$(24,"-") 

109 FORJ-1TONC:X(W1,J)»0:NEXTJ 

110 RESTORE 

111 FORI-1TONF 

112 READMO,Nl > N2,N3,N4,H,V,A 

113 PRINT*r2,CHR$(26) : PRINT*- 2, USING "**•"; MO; 

114 XL-SQR(H*H+V*V) :CS-H/XL:SN-V/XL 

115 FORJ-1TONC 

116 F(J)-E*A/XL*(CS«(X(N3,j;-X(Nl,J))+SN«(X(N4,J)-X(N2,J))) 

117 PRINTMO; J, F( J) , 

118 PRINT*-2,USING"*********.»»**";F(J) , 

119 NEXTJ:NEXTI 

120 PRINT*-2,"":PRINT#-2,":PRINT*-2,"FIM" 

121 PRINT*-2,'«- " 

122 STOP 

201 DATAl.26,26,1,2,175,45,50 
20? DATA2,1,2,3.4,175.45,50 

203 DATA3,3,4,5,6,175,45,50 

204 DATA4,5,6,7,8,175,45,50 

205 DATA5,7,8,9,10,175,-45,50 

206 DATA6, 9,10, 11, 12, 175, -45, 50 

207 DATA7.11, 12,13, 14,175,-45,50 

208 DATA8, 13, 14, 15, 26, 175, -45, 50 

209 DATA9,26,26,16,17,350,,50 

210 DATA10,16,17,18,19,175,,50 

211 DATA11,18,19,20,21,175,,50 

212 DATA12,20,21,22,23,175,,50 

213 DATA13,22,23,24,25,175,,50 

214 DATA14,24,25.15,26,350, ,50 

215 DATA15,l,2,16,17,175,-45,50 

216 DATA16,16,17,3,4,,90,50 

217 DATA17,3,4,18,19,175,-90,50 

218 DATA18,18,19,5,6, ,135,50 

219 DATA19,5,6,20,21,175,-135,50 

220 DATA20,20,21,7,8,,180,50 

221 DATA21,20,21,9,10,175,135,50 

222 DATA22,22,23,9,10,,135,50 

223 DATA23,22,23,11,12,175,90,50 

224 DATA24,24,25,11,12,,90,50 

225 DATA25,24,25,13,14,175,45.50 

226 DATA2, 1.-380 

227 DATA4, 1,-380 

228 DATA6, 1,-380 

229 DATA8, 1,-380 

230 DATA10, 1,-380 

231 DATA12, 1,-380 

232 DATA14, 1,-380,,, 



£ 



M 



PROCURE QUEM 
REALMENTE ENTENDE. 



M 



^MICROMAQ 

R. Sete de Setembro, 92 - Lj. H 
Tel.: 222-4S088 - Rio de Janei 



POR QUE NAO TUDO EM 
UM SO LUGAR? 

Mierocomputadores, Sotware, Publica<;6es 
F^specializadas, Cursos e Manuten<;ao de Equipamentos. 
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PRH 

CONSULTORES 



Assessoria em Processamento de 

Dados 

Desenvolvimento de Programas 



PROGRAMAS PRONTOS 

(TRS-80-III — diskette) 

• Emissao de Carnes 

• Controle de Convenios 

• Processamento de Cadastros 

• Historico Medico 

• Mala Direta 

• Lista de Precos com Reajuste 
Automatico 

• Cadastro de Artigos de Re- 
vistas e/ou Livros 

• Cadastro de Clientes 



PRH Consultores 

Rua Mexico, 70— Grupo 810 811 

Centro-RJ Tel.: (021)220-3038 



IT1.5. Seruicos 





i§mhip 

COMPUTACAO 






*$5**° 






vv 



P T&> 



Rua Miyutl Lemos n'. 41 

sala Wk> - (opaiaoana 

lei.: 227-8803 

Rio de Janeiro - RJ. 




OBJt i iVOS: Formar o aluno com conhe- 
cimento solido na area de Ingles Tecmco 



HORAROS: Manna. Tardc 

Saoad06 peia Manna 



OBS : Turmas fecnadas para Empresas 

DURACAO: 6 (seis) meses — 2 (dou) 
trimeslre* 

TURMAS: Com 25 alunos 

A QUEM SE DEST1NA 

Oigitadores. Operadores. Programadores. 
Analgias Auditores. Engenheiros. Medi- 
cos. Advogados. Administradores. Econo- 
mistas. Usuariosde Micro Com putadorese 
demais interessados em apiicacao da lin- 
gua Inglesa Tecnica para Processamento 
de Dados 



Praia de Bolafogo. 210 Gr. 1.105 
Tel.: 551-4448 Botalogo RJ 



O lugar compativel 

com voce e seu 

micro. 



— Micros 

— Acessorios 
— Software 

— Livros 
— Revistas 



Rua Dias da Cruz, 215 

s/804 — Rio de Janeiro— RJ 

Tel.: 594-2699 



a bits e Bins 

COMPUTADORES 



• VENDAS 

• ASS. TECNICA 
ESPECIALIZADA 

• PROGRAMAS 

• DISKETTES 

• FIT AS 

• SERVigOS 

• CURSOS DE BASIC 

• FORMULARIOS 



CONSERTOS EM 24 HORAS 

(COM GARANTIA) PARA 

O CP-500 e I)(;T-100 



EM SAO CONRADO 

Estrada da Gavaa, 642 

Lj. B Tal.: 322-1960 



No Recife, visite 
T E L E V i D E (') 

O Lojao de Informatica mais 
descomphcado do pais 1 
Micros, penfericos, suprimen- 
tos. Software. Cursos. Livros e 
Revistas, Componentes Eietro- 
nicos, Pegas e Som. 



PREQOS ESPECIAIS. 
FINANCIAMENTO PRfJPRIO. 



Compre pessoaimente ou peio 
Reemboiso Postal 

TELEVIDEO LTDA. 

R. Marques do Herval, 157 
Tel.: (081) 224-8932, 
(50000) Recife, PE 



( ) Sr. Industrial: distnbuimos seu 
produto nas melhores condiqoaa. 
Contato am Sao Paulo: Tal.: (011) 
220-7377 (Sr. ANDERSON - Mun 
\disom) . 



SI fill II S 

CENTRO DE PESQUISAS, 
ESTUDOS E ENSINO 
TECNOLOGICO E DE 
INFORMATICA DE MINAS 
GERMS LTDA. 



Ja estao abertas as 
inscrigoes para 
o curso de Analises 
de Sistema, com 
estagio garantido 
para todos os alunos 
em nosso CPD 



Rua Tamoios n° 462/911 

Rua da Bahia n" 504 4° andar 

B Honzonte M Gerais 



Alfa Bit 
CLUBE DE C0MPUTAQA0 



Associe-se ao ABCc e ganhe Anuncio GRA- 
TIS.- urn exemplar oe AiFABlT e DESC0N- 
T0S de 10% na compra de LIVROS. REVIS- 
TAS. CURSOS e PROGRAMAS, alem de 

— Servicos de "Repnnters" e Consultas 

— Associacao a Clubes Europeus 

— Partlcipacio em Cursos. Congressos e 
Concursos 

— Novos Lancamentos a PRECOS REDUZI- 
D0S (Breve IMPRESS0RA DE AGU- 
LHAS PWINI-MICR0S DE LOdCA SIN- 
CLAIR - Lancamento "Digital Eletrrj- 
nka") 

ANUIDADE: Cr$ 1 000 (hum mil crurtiros) 

somwrte ao receoer seu Cartao-Descontos e 

urn exemplar de "Alfabit" 

Envie nome, enoereco, prohssao e texto do 

seu anuncio (caso queira publicacio ime- 

diata) 



N0VIDEIAD 

Comunicaqao e Inform atica Ltd a 

CAIXA POSTAL 9978 

CEP 01051 • Sao Paulo, SP 
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. Comerciallzamos seu proje- 
to-Soft ou Hard. Escreva-nos 






ANUNCIO 



PEQUENO 



GRANDE 



RETORNO 



ESTE ESPACO ESTA 
RESERVADO PARA SEU 
ANUNCIO ECONdAAICO. 
GARANTA JA UAA 
SUPER RETORNO. BASTA 
LIGAR PARA: 
RIO DE JANEIRO: 
(021)286-1797,246-3839 
e 266-0339 
SAO PAULO: (011) 
280-41 44 e 853-3800 



Aten^So 

leitores 

de todo 
Brasil! 



MICRO SISTEAAAS informa que a 

firma Spartime e o sr. Eloi Jora 

Soares nao mais representam a 

revista para fins de 

venda de assinaturas. 

Para assinar MICRO SISTEAAAS, 

dirija-se pessoaimente ou 
por carta aos nossos enderecos: 



Rio de Janeiro — R. Visconde Silva, 25, Botafogo CEP 
22281, tels: (021)286-1797, 246-3938 e 266-0339 
Sao Paulo — Al. Gabriel AAonteiro da Silva, 1227, Jar- 
dim Paulistano, CEP 01441, tels; (011) 280-4144 e 853- 
3800 



/Micro 
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Para controlar o liga-desliga de lampadas e aparelhos e/e'tricos, 
um programa e uma interface para a linha Apple 



O ultimo a sair 
apague o micro 



Evandro Mascarenhas de Oliveira 



Para os micros da linha Apple, apresentamos neste artigo 
uma montagem eletronica simples que permite, atravds 
de programa simulando um rel6gio eletronico, ativar 
ou desativar, por peribdo determinado, dispositivos 
eletroeletronicos (lampadas, motores, radios, toca-fitas, apare- 
lhos ele'tricos etc.). 

ONDE E COMO 

O conector de jogos do Apple possui quatro saidas denomi- 
nadas Annunciators - ANN 0, ANN 1 , ANN 2 e ANN 3 (pi- 
nos 15, 14. 13 e 12) -, que representam tensoes de zero ou 
cinco volts, dependendo dos enderecos compreendidos entre 
C058 e C05F a serem referenciados (figura 1). 



ANN 


PINO 


OV 


5V 





15 


C058 -16296 


C059 -16295 


1 


14 


C05A -16294 


C05B -16293 


2 


13 


C05C -16292 


C05D -16291 


3 


12 


C05E -16290 


C05F -16289 



Figura 1 - Enderecos associates aos Annunciators ANN 0, 1 , 2 e 3 para 
Oe 5 Volts. 

Ao ligarmos o micro, estas sai'das apresentam nivel baixo 
(emtorno de 0,2V), passando a alto (em torno de 4,2 V) quan- 
do, no programa, sao referenciados os enderecos citados atra- 
ve"s de POKE end, 0. Isto permite fazer um chaveamento (in- 
terrupter eletronico) sobre um rele' por meio de um transistor 
NPN - que faz a conducSo quando sua base est4 em nivel alto 
(interruptor fechado) -, ou entfo cortar a conducao quando 
ela esti em nivel baixo (interruptor aberto). 

circuito eletronico que realiza o controle da ativacSo ou 
na"o do rele" estd na figura 2: a base do transistor TR1 , quando 
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Fotografia do protdtipo 

em nivel alto (endereco C059 do ANN 0, referenciado por 
POKE - 16295,0), permite a conducao da corrente pela bobi- 
na do rele' RL1 (indicada pelo acendimento do led Dl), provo- 
cando o fechamento dos contatos 1 e 2 e permitindo a circula- 
9S0 de corrente de 1 10V para a carga (aparelho etetrico para 
esta tensao). 

Ao ser referenciado o endereco C058 por POKE -1 6296, 0, 
a tensao em ANN 0, vai pr6ximo a 0V, interrompendo a con- 
ducSo de TR1 , o que impede a circulacao da corrente na bobi- 
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110V 

o — 



Pino 1 



■ 
-v 

<D 
4J 

0) 

cr 
o 
en 



4- o- 



Pino 15 



ANN O- 



Pino 8 



— o- 




- Hl — pXtj 

D2 c 



*S 



3(NF) 



CARGA 



2(NA) 



-A/W- 



K 



c 

TR1 



F igura 2 - Circuito 

eletronico para o 

controle de cargas 

externas por programa 

em computador da 

linha Apple. 

Observacdo: 

NA = Normalmente 

Aberto; 

NF = Normaltnente 

Fechado. 



na. indicada pelo apagamento do led Dl. Isto obnga os conta- 
tos 1 e 2 do rete a ficarem abertos, interrompendo a corrente 
de 110V pela carga. O diodo D2 evita danos sobre TR1 no 
momento da interrupca"o do circuito; Rl e R2 sao resistores 
limitadores das cor rentes em Dl e base do TR1 . 

A tensSo de alimentacao do dispositivo e" tomada no pr6- 
pno soquete do controlador de jogos (pinos 1 (Vcc) e 8 (ter- 



universal (filetes paralelos), sendo as conexoes feitas atrave"s de 
cabo Philips (cinco condutores), usando tres (dois para a ali- 
mentacao e o terceiio paia o ANN 0). Ver figura 3. 

PETALHES SOBRE O PROGRAMA 

programa para controle i a simulacao de um rel6gio ele- 
tronico, que sera" acertado para os valores inicial, despertar 




Figura 3 - Placa de circuito impresso universal 12,5x7,5, vista pela fa- 
ce dos componentes. 

ra)) e a bobina do rele\ apesar de ser para 6V, ji atrai a arma- 
dura para tensdes em tor no de 3,5 V, permitindo circular cor- 
rentes de ate' 8A pelos contatos, suficiente para a maioria dos 
aparelhos eldtricos utilizados. 

autor montou o sistema em placa de circuito impresso 
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Microcomputadores com credito direto ou leasing 



ICOLOR 64 Cr$ 495.000. 

|CP-200Cr$ 157 000. 
DGT-1000 Cr$320 000, 
TK-85 Cr$ 149000. 
CP-500 Cr$ 749 000. 



X 2 (GRATIS APLICATIVOS)! 
X 2 (GRATIS 20 JOGOS) 
X 3 (GRATIS 20 JOGOS) 
X 2 (GRATIS 20 JOGOS) 
X 2 (GRATIS 20 JOGOS) 



CURSOS DE BASIC COM ATE 100% DE DESCONTO 
ENTREGA RAPIDA EM TODO BRASIL 



Aplicativos: controle de estoque; contabilidade: lolha de 
pagamento: contas a receber pagar: mala direta: cadaslro 
de clientes e desenvolvimento de software para cada neces- 
sidade. 



Temos toda linha de perilericos e supnmentos para acom- 
panhar o crescimento de sua empresa. 



VISITE-NOS 0U S0LICITE UM REPRESENTANTE 



MICRONEWS COMERCIO E SERVICOS LTDA 

R Assembleia 10 Gr 3317 Ed Centro Candido Mendes 

Tel.: 1021) 252-9420 CEP 20011/RJ. 



ULTIMO A SAIR APAGUE MICRO 
















J 


Relogio eletronico 






5 


HOME 








290 HID - OiM(l) - 0:S<1) - 0« GOTO 


10 


INPUT 


"HORA INICIAL - "1 


160 


PRINT "FINAL "IH(3)I SPC< 




180 




H(l> 






6)»M(3)J SPC< 7)tS(3): PRINT 


1000 


IF I - H(2) THEN GOTO 1020 


20 


INPUT 


"MINUTO INICIAL - " ; 




: PRINT s PRINT 








M(l) 




165 


PRINT SPC( 11) J-RELOGIO ELE 


1010 


RETURN 


30 


INPUT 
S(l) 


'SEGUNDO INICIAL - "; 


170 


TRONICO": PRINT 

FLASH : VTAB 22 s PRINT "APER 


1020 


IF J - M<2) THEN GOTO 1040 


40 


PRINT 


: PRINT 




TE QUALQUER TECLA PARA INICI 


1030 


RETURN 


50 


INPUT 
S(2) 


•HORA DESPERTAR - "; 


175 


AR A CONTAGEM": GET A» 
NORMAL : VTAB 22 t PRINT " 


1040 


IF K - S<2> THEN GOTO 1060 


60 


INPUT 
M<2> 


•MINUTO DESPERTAR - " t 






1050 
1060 


RETURN 

POKE - 16295.0 


70 


INPUT 


•SEGUNDO DESPERTAR - "; 




" 


1065 


FLASH : PRINT "DESPERTOU" : 




S(2> 




1B0 


FOR I - H(l) TO 23 




NORMAL : CALL - 1052 


BO 


PRINT 


PRINT 


190 


GOSUB 1000: BOSUB 2000 


1070 
2000 


RETURN 

IF I » H<3) THEN GOTO 2020 


90 


INPUT 
H<3) 


'HORA FINAL - "| 


200 
210 


FOR J = Mil) TD 59 
GOSUB 1000: GOSUB 2000 


100 


INPUT 


"MINUTO FINAL - " 


220 


FOR K - S<1) TO 59 


2010 
2020 


RETURN 

IF J - M<3) THEN GOTO 2040 


110 


JM<3) 
INPUT 


"SEGUNDO FINAL - " 


230 
240 


FOR M = TO 975: NEXT 

HTAB 15: VTAB 15: PRINT " ■ 




:S(3> 






: HTAB 15: VTAB 15: PRINT I 






120 


HOME 




250 


: HTAB 20: VTAB 15: PRINT ■ 




IF K - S(3) THEN GOTO 2060 


130 


PRINT 


SPC( 10) 5" HORA MINU 




": HTAB 20: VTAB 15: PRINT J 








TO SEGUNDO": PRINT 






2050 


RETURN 


140 


PRINT 


"INICIAL "JH(1)I SPC( 


260 


HTAB 25: VTAB 15: PRINT " 


2060 


POKE - 16296,0 




6>»M(1)I SPC( 7>;S<1>: PRINT 




J HTAB 25: VTAB 15: PRINT K 


2070 


PRINT " "i PRINT 








270 


GOSUB 1000: GOSUB 2000 




: PRINT : PRINT "FINAL" 


150 


PRINT 


"DESPERTAR "!H<2)l SPC ( 


280 


NEXT : NEXT : NEXT 


2090 


END 




6);M(2)l SPC< 7);S<2): PRINT 











(ativacao da carga) e final (desligamento da carga), cujo signifi- 

oadoe: 

• linhas 10 a 1 10 - especificam os valores inicial, despertar e 

final do rel6gio pelas vaiiiveis H(l), M(l), S(l), H(2), M(2), 

S(2), H(3), M(3) e S(3); 



dismoc 
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ESTERS AO SIMBOLOS 

da^^aViecnolSgia 
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JUNTOS FORM AM 
A PERFEITA HARMONIA QUE VOCE PROCURA 

venha comprovar nosso atendimento 
I OIIP WIENTOS-PROGRAMAS-CURSOS-CONSULTORIA 

I esbi Intomiatica Llda. 

W 28desetembro226-lj. 110 tel: (021) 284-6949 



• linhas 130 a 170 - apresentam os valores de entrada e 
aguaidam o acionamento de qualquer tecla (GET AS) para ini- 
ciar a contagem do tempo; 

• linhas 1 80 a 280 - contagem dos segundos, minutos e ho- 
ras. loop da linha 230 controla o retardo necessario para ca- 
librai os segundos (no micro do autor, o valor 975 da para o 
tempo de um minuto, com erro de mais ou menos 0,02 segun- 
dos); 

• linha 290 - zera os valores de hora, minuto e segundo assim 
que as 24 horas forem atingidas, reiniciando a contagem dos 
tempos; 

• linhas 1000 a 1070 - sub-rotina que testa o initio da ativa- 
cao do rele\ referenciando o endereco C059 (linha 1060), exi- 
bindo DESPERTOU em modo flash e dando smal sonoro — 
bip (CALL - 1052); 

• linhas 2000 a 2090 - sub-rotina que testa a hora final, desa- 
tivando o rele" (referencia o endereco C058 na linha 2060) . 



Lista de material 



1) Semi<ondutores: 

• TR1 - transistor BC 548 - NPN 

• Dl - diodo fotoemissor (led vermelho comum) 

• D2- diodo 1N4007 

2) Resistores (1/4 Watt de mais ou menos 10%) : 

• Rl - 470 ohms 

• R2 - l,2kohms 

3) Diver sos : 

• RL1 - rele Schrack para placa de circuito impresso, codigo 
RP010006,bobinade6V 

• placa de circuito impresso universal, cabo Philips etc. ■ 



Evandro Mascarenhas de Oliveira 4 mtdico e wm desenvolvendo suss 
atividades nas 6reas de Laboratdrio Clfnieo e InstrumentapSo M4dica. 
Trabalhou quatro anos com o computador Burroughs 6700 do Nucleo 
de ComputacSo Eletronica da UFRJ nas linguagens FORTRAN IV e 
ALGOL. E usuirio dos micros NEZ8000 e AP II. 
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Os Kits de Micro Chegaram! 

APPLEKIT - Kit de microcomputador tipo Apple® 



Componentes para montagem 
de um microcomputador 
APPLEKIT complete 



microcotitrol 

Sistemas de Controles 

Tels.: (Oil) 814-0446 e 814-1 110 
Sao Paulo - Brasil. 



APPLEKIT 65100 



APPLEKIT 65000 








BBBE QB^ 
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APPLEKIT 65020 



1 



d 



<*% 



APPLEKIT 65300 APPLEKIT 65400 




1 APPLEKIT 65000 Placa de circuito impresso. rAPPLEKl T65010l Conjunto de soquetes. conectores, resistores e ca- 
pacitores. [ APPLEKIT 65020 Conjunto de semlcondutores, TTL's, LSI e memorias (As memorias EPROM sao forneci- 
das com gravacao) APPLEKIT 65100 Conjunto de teclado alfanumerlco com 52 teclas e componentes, circuito im- 
presso. [APPLEKIT 65200 Fonte de alimentacao tipo chaveado. 1 APPLEKIT 65300 1 Caixa de microcomputador em 
poliuretano. 1 APP LEKIT 65 400] Manual de montagem e teste de micro. 



APPLEKIT e 100% compatlvcl com os cartoes perifericos da MICROCRAFT 



* Apple * marca regislrada d> Apple Inc . 




Microcenter Informatica Ltda. 



TEL 228-0593 e 264-0143 
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TRANSFORME A SUA 

MAQUINA DE ESCREVER 

OLIVETTI ET121 

EM IMPRESSORA 

DE COMPUTADOR 



Coma Interface da DW121 sua maquina 
de escrever OLIVETTI Eletrbnica ET 121 
se transforma em uma impressora dealta 
qualidade para textos ou programas, sem 
alterar as caractensticas originais da ma- 
quina. 

Instalado internamente a Interface conta 
com um buffer de 2K bytes e uma serie 
de comandos especiais para a confeccab 
de textos, taiscomo: sublinhamento au- 
tomatico, negrito automatico, compri- 
memo de linha programdvel e outros, po- 
dendo ser acoplado a qualquer tipo de 
MINI ou MICRO COMPUTADOR que te- 
nha sai'da SERIAL RS 232C/Standard ou 
Paralela 8 bits Centronics. 

Solicite maiores informacoes a 

Dflisv Wheel eie^^ 

INDUSTRIA E COM6RCIO LTDA. 

Uma Divisab da ESFEROMAC Ltda. 
Rua Antonio Comparato. 200 
Tets.: 532-01 54 e 240-4829 
CEP 04605 Sao Paulo - SP 
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• O NETC —NucleodeEnsinode Tecnologia 
e Ciencia estara promovendo entre os meses 
de Janeiro e marco os seguintes cursos: Hard- 
ware de Teleprocessamento (45h), Software 
de Teleprocessamento (60h), Amplificadores 
Operacionais II (40h), Instrumentacab e Con- 
trole II (72h). Eletronica Digital I (60h), Ele- 
tronica Digital II (60h), Computadores e Mi- 
crocomputadores Digitals — Hardware (45h), 
Hardware do Microprocessador 8080/85 
(35h) e Hardware do Microprocessador Z-80 
(35h). As aulas sab retroprojetadas e apostila- 
das, dispondo-se de laborat6rios para aulas 
praticas. Informacoes e pedidos postais de 
catalogos de cursos na Rua Alvaro Alvim, 37, 
29 and. tel: 225-6013, Rio de Janeiro, RJ. 

• O CBI — Centro Brasileiro de Informatica 
apresenta os seguintes cursos: Teleprocessa- 
mento, Tecnicas de Programacao Estruturada, 
Programacao Pascal, Andlise Estruturada, Ma- 
nutencab do Microcomputador Pessoal DGT- 
100/1000, Projeto de Interfaces para Micro- 
computadores e Controle de Processos. Inscri- 
bes e informacoes na Av. Passos, 115, si. 
215, tel: (021 ) 233-11 23. Rio de Janeiro, RJ. 

• Introducab aos Microcomputadores, Pro- 
gramacao BASIC, Linguagem BASIC, Mi- 
crocomputador para Crianca, Aplicacab do 
Microcomputador na Engenharia e BASIC II 
para Criancas. Estes sao os cursos que a 
DATAMICRO Informatica esta oferecendo, 
de segunda-feira a sabado, em varios hora>ios. 
Informacoes e inscricoes na Rua Visconde de 
Pirajd, 547, sobreloja 21 1 , Ipanema, tel: (021 ) 
274-1042, Rio de Janeiro, RJ. 

• Terab infcio em 19 de marco os seguintes 
cursos promovidos pelo Instituto Maua de 
Tecnologia: Curso de Especial izacao em 
Administracab Industrial — CEAI, Curso de 
Extensao em Sistemas - CESI, Curso de Ex- 
tensa"o em Marketing para Exportacab — 
CEEX e, com infcio em 15 de marco, o Curso 
de Extensao em Admin istracab de Transpor- 
tes — CEAT, todos com aulas a noite. Ha um 
desconto de 10% para engenheiros graduados 
na Maud. Inscricoes na Rua Pedro de Toledo, 
1071, tel: 544-3135, Vila Clementino, Sao 
Paulo, SP. 

• A Tesbi oferece regularmente curso de 
IntroducSo a Linguagem BASIC em turmasde 
seis alunos com aulas diretamente em TK85 e 
CP-500, nos horarios da manna, tarde e noite, 
duas vezes por semana. A duracao total do 
curso e de cinco semanas. O endereco da 
Tesbi e Av. 28 de Setembro, 226, II. 110, 
tel: (021) 284-6949, Rio de Janeiro, RJ. 

• O Centro Latino-Americano de Desenvol- 
vimento da Informatica oferecera um curso de 
Rede de Computadores, no mes de marco. 
Este curso tern como objetivo capacitar os 
participantes a dominar o vocabulaVio utiliza- 
do pelos profissionais da area; conhecer os 
principals elementos que compoem uma rede, 
suas funcoes e combinacoes possfveis; identi- 
ficar alternativas de tecnologia de redes, bem 
como possibilidade de utilizacab e problemas 
envolvidos, entre outros. O CLAD I fica na 
Rua Jose Goncalves de Medeiros, 96, Madale- 
na, tel: (081 ) 227-2307, Recife, PE. 

• Estes sao os cursos de extensao universita- 
ria que a UERJ esta oferecendo: Mini-Micro- 
computadores Eletronicos - Aplicacoes e 
Uso, 13/03 a 11/04, 36h; Analise e Projeto 
Estruturado de Sistemas de Informacao, 
19/03 a 20/11, 150h; Formacao de Tecnicos 
de Programacao de Computadores Eletroni- 
cos, 21/03 a 21/11, 270h. Informacoes e ins- 
cricoes na Rua Sao Francisco Xavier, 524, 
Pav. Haroldo Lisboa, si. 214, tel: 264-8143 e 
284-8322, r: 2417 e 2507, CEP 20.550, Rio 
de Janeiro, RJ. 



• A MICRO'S Processamento de Dados 
promove regularmente cursos de programa- 
cao BASIC e COBOL. As turmas sao compos 
tas de, no maximo, 20 alunos e todo o mate- 
rial didatico e fornecido pelo curso. Maiores 
informacoes na Rua Duque de Caxias, 450, 
Ediffcio Chams, Salas 702 e 703, tel: (034) 
235-6965, Uberlandia, MG. 

• O Instituto Psicodinamico de Idiomas esta 
oferecendo curso intensivo de BASIC para 
principiantes. A duracao do curso e de duas 
semanas, com carga hordria de 1 1 horas sema- 
nais. O curso baseia-se em 60% de aulas prati- 
cas, 20% de demonstrates e 20% de teoria. 
O Instituto fica na rua Ma/tiniano de Carva- 
Iho, 200, fone: (011) 284-3912, Sao Paulo, 
SP. 

• Informatica para Usuarios, Fundamentos 
de Teleprocessamento e Fundamentos de 
Bancos de Dados sao os cursos que a SCI est<5 
oferecendo. As inscricoes estab abertas. Maio- 
res informacoes na Rua Jardim Botanico, 635, 
89 and., tel: (021) 294-7438, CEP 22470, 
Rio de Janeiro, RJ. 

• II Curso de Atual izacao em Analise de Sis- 
temas e o que o I BAM esta oferecendo de 19 
de marco a 08 de junho. O programa deste 
curso abrange Atual izacao Metodologica, O 
Estado da Arte da Tecnologia de Informatica, 
Atual izacao Gerencial e Seminarios, Automa- 
cao de Escrit6rios e a Polftica de Informatica 
no Brasil. As inscricoes devem ser feitas no 
Largo dolBAM, n91, Botafogo, Rio de Janeiro, 
Maiores informacoes pelo tel: 266-6622, RJ. 

• A FUNDEP e a UFMG estab oferecendo 
os seguintes cursos, no pen'odo de marco a 
agosto: Curso BASIC, Curso FORTRAN, Cur- 
so de Microprocessadores e Curso Pascal. Um 
curso sobre O Computador na Administracab 
- Treinamento de Usudrios, tambem estd sen- 
do oferecido, de 15/03 a 16/04. Maiores in- 
formacoes na Av. Antonio Carlos, 6627 - 
Pampulha - Belo Horizonte - tel: 441 -8077, 
R. 1447 e 1451, MG. 

• A Compbel promove regularmente cursos 
de IntroducSo a Microcomputadores, para 
estudantes de nfvel colegial, BASIC I, BASIC 
II e Visicalc Plus. Em todos os cursos o nume- 
ro maximo e de tres alunos por equipamento. 
A Compbel fica na Rua Gregorio Paes de 
Almeida, 62, Vila Madalena, Sao Paulo, tel: 
(011) 65-9857, SP. 

• A Erkla esta promovendo a partir deste 
mes cursos de: Microprocessadores Z80, 
Microprocessadores 8080/8085. Assembler 
Z80, BASIC, Basico de Sistemas Digitais, en- 
tre outros. Maiores informacoes na Av. 
Pacaembu. 1261, tel: (011) 67-8339 e 
826-1499, Sab Paulo, SP. 

• A Compucenter estara promovendo de 20 
a 22 de fevereiro curso de Administracab de 
Dados e Data Entry — tecnicas para aumentar 
a produtividade, de 22 a 24 de fevereiro. 
Maiores informacoes pelo tel : (01 1 ) 255-5988, 
SSo Paulo, SP. 

• Cursos de BASIC I, BASIC II e Uso de 
Aplicativos por Cr$ 60 mil. Eldorado Compu- 
tadores, Rua Visconde de Piraja, 351, sis. 
213/214, Ipanema. tel: 227-0791. Rio de 
Janeiro, RJ. 

• A Data Record esta oferecendo cursos de 
BASIC, COBOL e Digitacao. Perfodos: manna, 
tarde, noite e fins de semana. A Data Record 
tambem oferece bolsas especiais para estudan- 
tes. Maiores informacoes na Av. Santo Amaro, 
5450, Brooklin, tel: (011) 543-9937, Sao 
Paulo, SP. 



• Para informar ao lertor sobre os cursos que 
estab sendo oferecidos, a revista recolhe in- 
formacoes em dlversas instituicdes ou as rece- 
be pelo correio Portanto. nab nos responsabi- 
lizamos por qu8fsquer alteracoes posterior 
mente efetuadas por estas instituicOes nos 
program as ou precos 
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Usua'rio da linha TRS-80 mod el o l.aqui esta um utilita'rio para voce nao 
perder de vista seus programas em linguagem de maquina gravados em cassete 



PROSYS 



Esdras Avelino Leitao 



Oprograma foosys tern a finalidade de ajudar os usuanos 
de micros compativeis com o TRS-80 modelo I a lden- 
tificar, localizar e carregar programas em linguagem de 
maquina, especialmente os que nao possuem cassete com con- 
tador de giros. 

Ao ser carregado, o Prosys ficara localizado numa drea da 
memoria nao utilizada por sistemas sem disco (403EH - 407DH) 
e so seii afetado com a ocorrencia de um RESET geral (volta 
ao READY?). 

Ele oferece as seguintes facilidades: 

1) coloca no video o nome de cada programa a medida em que 
vai lendo a fita cassete; 

2) permite miciar a procura de um programa em quaJquer po- 
si<;ao da fita, mesmo a partir do meio de um programa; 

3) permite a parada do cassete a qualquer instante para voltar 
ou adiantar a fita, e o subseqMente retorno a tecla PLA Y; 

4) ao localizar o programa desejado, o comando e" transfendo 
automaticamente para a sub-rotina normal do sistema, que pas- 
sa a carregar o programa na mem6ria; 

5) a qualquer instante basta teclar: 

LOAD 

*? NOME DO PROG. 

e o cassete sera" ligado, miciando a procura do programa dese- 
jado. 

Uma boa medida e" carregar este programa no micio de cada 
fita cassete. Assim, voce teia" controle total sobre todos os seus 
programas em linguagem de maquina. 





Prosys 




10 CLS 




20 PRINT@256, "PROGRAMA PARA LOCA 


LIZAR, IDENTIFICAR E CARREGAR PR 


OGRAMAS EM LINGUAGEM DE MAQUI 


NA." 


30 PRINT: PRINT "TECLE -LOAD- E A 


POS -*?- NOME DO PROGRAMA" 


40 FOR 1=0 TO 2: READ Z: POKE 16 


776+1, Z: NEXT I 


50 FOR J=0 TO 59: READ W: POKE 1 


6446+J,W: NEXT J 


60 DATA 195,62,64,49,136,66,205, 


254,32,6 2,4 2,205,42,3,20 5,179,27 


,215,205,147,2,205,53,2,254,85,3 


2,246 


70 DATA 6,6,17,55,60,205,53,2,18 


,19,16,2 4 9,33,232,65,17,55,60,6, 


6,126,183,40,8,26,190,32,218,35, 


19,16,244,205,231,2 ■ 



t 

cl 



CE NTRALD ATA 

tti e ItntttilHlM H«i. 



SUPRIMENTO E COISA SERIA 

• Malenha o seu compulador bem ahmentado adquirindo produtos de quahdade consagrada 

Fita Magnetica 600 1 200 e 2400 P«s 



Discos Magnetos 5 Mb. 16 Mb. 80 Mb etc 

Diskettes 5 1/4. e 8 Polegadas — Simples e Dupla Face 

ETIQUETASPIMACO-PIMATAB 



Fita CARBOFITAS p/lmpressoras: Globus M 200 - B 300/600 
Fita p/lmpressoras Elebra, Digilab, Diablo. Centromcetc. 
Cartucho Cobra 400 
Pastas e FormulariosContinuos 



AV PRESIDENTE VARGAS. 482- GR 207 ■ TELS 10211 263-5876 • 253-1120 - RJ 
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Por que usar a sua, se voce tern a memdria do computador? Um catalogo de programas, 
por nome ou disquete, 6 o que propomos para os micros da linha TRS-80 



Programa que 
arquiva programas 



Lawrence F. King 



Um dos maiores problemas de 
quem possui muitos discos 6 
lembrar em que disquete se en- 
contra urn determinado programa. Ou 
voce possui uma mem6ria formidavel, 
ou entao tera" que se utilizar de um pro- 
grama que o faca por voce - e e - eviden- 
te que voce nao vai querer um programa 
que leve muito tempo para localiza-lo, 
ou que demore demais para classificar um 
arquivo. Por isso mesmo, o programa para 
catalogacao de disquetes que aqui traze- 
mos (Catdlogo/BAS), ainda que escrito 
em BASIC, utiliza rotinas em Assembler 
para suprir suas deficiencias quando o 
fator tempo torna-se critico. 

Desenvolvido para computadores 
compativeis com o TRS-80 modelo III, 
o programa ocupa toda a memdria dis- 
ponfvel, sendo que a configura^o mini- 
ma para rodi-lo 6 48 Kb de RAM e um 
ou mais drives. Os sistemas operacionais 
a serem utilizados podem ser o DOS 
500, TRS DOS e demais compativeis. 

instrucOes de utilizacAo 

Coloque o disquete contendo o siste- 
ma operacional e o programa Catalogo/ 
BAS no drive zero. Carregue o DOS. Se 
voce for usar a impressora para imprimir 
o catilogo, use o comando FORMS para 
informar ao programa quais as dimen- 
soes do formulario que voce esti usan- 
do, por exemplo, FORMS (WIDTH 
= 80, LINES = 66). Depois disso, cha- 
me o BASIC-Disco. Responda IV a per- 
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gunta QUANTOS ARQUTVOS e entre o 
comando para executar o programa: 
RUN CATALOGO/BAS. O sistema ope- 
racional o carregara, entao. para a me- 
mdria principal, executando-o em segui- 
da. 

programa abrira" o video em tres 
partes: a parte superior, com post a das 
linhas e 1 ; a parte do meio, composta 
de dez linhas (3 a 12) e a parte inferior, 
composta de duas linhas (14 e 15). Cada 
particao do video e separada da outra 
por um tracp horizontal. 

A parte superior € puramente infor- 
mativa-.e" dividida nos seguintes campos: 

1 - extrema esquerda: indicaca"o de au- 
toria; 

2 - extrema direita, linha 0: numero do 
registro que esti sendo lido do arquivo 
ou o numero total de nomes atualmente 
catalogados; 

3 — extrema direita, linha 1 : campo para 
preenchimento da data a ser impressa na 
lijtagem (o preenchimento 6 obrigat<5- 
rio, mesmo que a listagem nao seja fei- 
ta); 

4 - meio do video, linha 0: nome do 
programa entre asteriscos * * * CATA- 
LOGO *** > 

5 - meio do vfdeo, linha 1 : versao cor- 
rente do programa ou funcSo que esti 
sendo executada no momento. 

A parte do meio 6 utilizada para a 
apresentacao do menu, e e* tambe'm o 
local por onde se dara toda a entrada e 
sai'da de dados. A parte inferior 6 em- 



pregada pelo programa para orientar e 
informar sobre possi'veis erros cometi- 
dos, como por exemplo, TECLE < EN- 
TER > PARA CONTINUAR. 

O menu apresenta sete (7) opcOes, a 
saber: 

1 -CRIAR/ATUALIZAR CATALOGO; 

2 - JNSERIR DIRETORIO NO CATA- 
LOGO; 

3 - DELETAR DIRETORIO DO 
CATALOGO; 

4 - USTAR CATALOGO; 

5 - LOCALIZAR PROGRAMA; 

6 - SALVAR CATALOGO ; 

7 - TERMINAR. 

Para as opcdes um, dois e tres, o pro- 
grama pediri que voce informe de quan- 
tos drives dispoe. Na verdade, o progra- 
ma utiliza sempre o ultimo drive do sis- 
tema, isto 6, se voce tiver dois drives e 
responder a pergunta com 2, ele pedird 
que voce coloque o disquete a ser cata- 
logado no drive 1 ; se voce tiver somente 
um drive, deve responder I a pergunta, e 
ele pediri que voce retire o disquete 
com o programa Catdlogo/BAS e colo- 
que o disquete a ser catalogado no drive 
0. 

Para todo disquete a ser catalogado 
ou d ele t ado, o programa exibira , na par- 
ticSo do meio do video, o conteudo do 
disquete e perguntara' se voce quer real- 
mente cataloga-lo ou deleta"-lo. Ap6s a 
catalogacao, alter acao ou delecao do 
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PROGRAM* PARA CAIALOGAR DIRETORIOS DL DISeui 



AUTORt LAURENCE FALCONER KING - TFK0242) 42-1919 



:SK*»" "lPN*-STRING*(l 



5 P0KE16562,4HBAlP0KE16561,SH7C 

A CLEAR2500 

7 DEFINTA-Z 

20 X=0«0PEN"R",l,"CATAL0G0/TXT",16lFIELDl,16ASD*lDN*- 

6," ") 

30 ZP-OtZ-OiZl-Ot 

31 Z*-~ "SZN*-" "iZl*-" "«ZF*-" "I 

32 DN=-1«CS**STRING%( 10, 13 )»Z2t-"ABCDEFGHIJKLMN0P«Rbi U v.»ArZ 1234567890" 

41 DATA 32717,-6902, 33,-20676, 1798, 9134,-1008, 16430, 4358, 9134, -1008, 510, 
1064,-223, 13567,-7715, 28381,-8956, 1382,-8785, 2167, 30685,-6903,-6683, 5073,- 
767, 13830,-4832,-7760, 4097, 2304,-6691, 18141, 20236,-28467,-8894, 8417,-11944 
, 2223 

42 DATA-3B6, 10283,-425, 14401,-450, 12379,-6854,-5163, 20189,-8946, 3910,-5367, 
3078,-386, 10298, 4613, 4899,-2544. 481, 16,-5367, 29661,-8954, 1906,-10795, 50 

89, 3841, 13824,-4832,-11856, 15368. 30685,-504,-7856, 5672, 264, 21, 32265, 112 
62, 3112 

43 DATA-20944, 6179,-15957. 33,-15616, 2714, 289, 15616, 2714 

51 DATA 32717,-6902,-223,-20481,-8841,-8735, 2670, 26333, 19979, 6, 24099, 22051 
-13347, 17922, 7976,-8725, 1630, 22237,-4857,-8784, 1651, 29405,-8953, 2158, 26 

333 8969, 30173,-8952. 2420.-25917,-10998,-8763, 94, 22237, 6913, 33,-13568, 12 
S4S' 

52 DATA 6401, 1320, 10731, 6379,-8716, 1118, 22237, 6405.-11839,-13347, 19970, 8 
00,-20243,-5175,-20243, 28381,-8954, 1894,-4681, 14418. -8952, 2158, 26333, 6153. 
-8771. 1651, 29405,-8953, 110, 26333, 6145, 169 

71 DATA 32717,-6902,-7715, 20189,-8958, 838, 17. 2048, 32477, 2054,-8743, 1134, 
26333, 19973, 24099, 22051, 28381,-8960, 358,-10811,-10779,-8839, 2251, 8262, 32 
257, 24099, 22051,-8725, 2654, 22237, 6411,-13347, 17928, 1056, 12435,-20735,-11 
961 

72 DATA 1284. 1568. 3340, 15648, 12568, 3340, 3112,-16870, 1568, 4899, 3333,-612 
0, 11056,-2808,-3832, 22475, 11552, 31193, 10416, 2827,-9965, 9185, 8995,-15919, 
-21992,-7925,-7711,-7739,-25917, 2058, 2293,-13327, 8263, 6156, 2269, 2293, 1332 
7, 8271 

73 DATA 6146,-9773,-15915,-8424 

91 DATA 32717,-6902, 33,-20676, 1798, 9134,-1008, 16430, 4358, 9134,-1008, 510, 
1064,-223, 13567, 24289, 22051 , -6877. -6677, 17963, 20011,-7719, 24291, 22051, 15 
71, 19968, 29153, 29475, 29219, -5341 , -5367 , 3033, -20359, -9784 , -432,8, 

101 DATA 32717,-6902, 8677,-1,-386, 14341, 12803, 16636, -8735, TB735f„/590, 18141. 
6147,-9980,-9755, 8641, 0,-4681,-12222, 14539, 6603, -9787, -*7B9, 28381,-8958, 8 

70,-4681,-6846,-11815, 2265,-30773,-8952, 78, 18141,-15103, 289,-6912,-15911,-97 
55. 6609 

102 DATA-11803, 6441. 24285.-8960, 342,-12007,-6699, 3096,-7711,-2808,-3832, 183 
79,-20184,-12520, 20250,-10938, 24099, 22051,-11797,-5147, 24099, 22051, 1249, 8 
197, 3078, 8205, 6191, 3088, 10253, 6668, 8382, 8966, 1299, 6157, 12520,-9955,-1 
4891 

103 DATA-11815, -18463, 21229,-16856,-10989,-15911, 1753, 3584,-12029, 2529,-5147 
,-6903,-18408,-11807,-6699, 774, 1VVV4, 31095, 8978, 4115, 2295,-14389, 6152, 83 
98 

HI DATA 32717,-6902,-7715, 20189,-8948, 94, 22237, 6913, 33, 13568, 12345, 6401 
, 1320, 10731, 6379,-5132, 28381,-8956, 1382, 8935, 4725, 29917,-8941, 4206. 263 
33, 17937, 9032, 9054,-10922,-8763, 94, 22237,-8959, 2158, 26333,-18679, 21229, 
23096 

112 DATA 28381,-8942, 4966, 24285, 5646, 6400,-11839,-14891,-16870, 1568, 8979,- 
2032, 8472, 28381,-8960, 358,-8925, 117, 29917,-8959, 4718, 26333,-8941, 3166, 2 
2,-8935, 4725, 29917. 6163,-8780. 5323, 10310,-8926, 2670, 26333, 17931, 24285,- 
8942 

113 DATA 4950, 294/5, 29219, 28381,-8960, 358, 1048, 46, 38, -15935, -25917, -B95U, 
4718, 26333,-6893. 24285. 5644. 6400,-5147, 283B1.-8954. 1894,-4681,-6830.-7743 

, 10449,-4862,-8784, 3150. 6, 24285,-8954, 1878.-7723, 13851,-4832,-8776, 1653, 
29917 

114 DATA-8953, 2158, 26333, 11017, 30173,-8952, 2420.-19432 

121 DATA 32717,-6902,-223, 32511, 1534, 824,-974,-8896,-8735, 2126, 18141,-8951. 
2670 26333. 32267, 24099, 22051, 28381,-8956, 1382. 30984. 10416, 2892.-10811, 

-8731, 3150, 18141, 2317, 2539,-8725, 3654,-16870, 1064, 4152, 1048, 4899,-3056, 
2273 

122 DATA 5727, 6400,-15919,-11240, 28381. -8954, 1894,-10799,-18459,-4829,-6830,- 
7743 2277, 5727, 6400,-7701, 29661,-8954, 1906,-18195,-11807, 6337.-6891, 2261, 

2B3Bl,-8954, 1894, 6, 2383. 30173,-8954, 1908,-7727, 1771, 20224,-20243. 28381, 
-8952 

123 DATA 2406, 8925, 2165, 29917,-15607. 2714 

200 DEFFNSKS(A%,AX)=LEFT*(A*,-(AX-2>*3)*MID'l(A*,5, (AX=1)»1) 

201 0EFFNZPX(A1X,A2X) (<A1X INI < A1X/A2X) «A2X> >0>«INT ( A1X/A2X)*1- ( < A1X-INT( A1X/A 
2X)«A2X)=0>«INT(A1X/A2X> 

202 DEFFNPN*(A*,AX>=RIGHT*(A*,12>*" "+MIDK" "+LEFT1C A*. 3) +" ", -< AX-2)«l-< A 
X-l >«4,-(AX=2)«3-(AX=-l>«7) 

203 D£rFNMPX( AX > = (PEEK (16424) -14 >»AX 

300 J«0:Ci-0«C2«0:Ri*0:M0*="TECLE <C> TARA C0NT1NUAR "«M1*'"TECLE <M> PARA VOLTAR 
AO MENU":M2V"TECLE A LETRA DE SUA OPCAO" >M3*=" <L> PARA LISTAR'OUTRO DISCO" 

310 DIMU8(87),U1(69),U5(34>,U6(100),U3(78),U4<122) ,117(81 ) .01* ( 79) .CTK999) ,MS( 13 
) 

311 mCO)**"im<i) Lol.oQUE DISOUEIE A SER CATALOGADO NO DRIVE " 

312 M*(2)*"CRIANDO/ATUALIZAND0":M4(3),="INSERIND0"!M*(4>="DELETANDO"lM%(5>«"LISTA 
ND0"«M*(6)«"L0CALIZAND0 iM*(7)'="SALVAND0"lM*(8)="TERMINAND0"iM*(9>="TIRE DISQU 
ETE CATALOGADO DO DRIVE 

E COLOQUE DISQUETE COM PROGRAMA »« CATALOGO ■»" 

313 Mt( 10) -"PROGRAMA' :M* i It >-"DX8C0"lM< 12)= "LETRA " :M*( 13) ="DISCO " 

320 F0RX-0T087*READU8(X) :NtXT :t 0RX = 0T069IREADU1 (X > INEXT :F0RX=0T078»READU3( X > t NEX 
T:F0RX»0T034:READU5(X>:NEXTif 0RX=0l0l00tREADU6(X)sNEXTiF0RX -0T0122:READU4( X) JNEX 
1 if 0RX-0T081 IREADU7(X) INEXT 

341 C5(2)=16 

342 C8(2)-«HF900:C8<3)=C8(2)!C8(5)«VARPTR(D*)lC8(6)=0iC8(7>»HCBX(8)-VARPTR(SK*) 

343 Ct(2>=«HUA,V 1<2>IC1(4>-0IC1 .|<(0*»:L1(UI-VARPIR(SK4) 
400 DEFUSkl-VAKIMR(UKU) ) :i /.RH I R ( U3 ( * > : M I U..K 4 - VARP I R « U4 i U > ■ 
RPTR(U5(0))iDEFUSR6-VARPIR(U6(U))lDEFUSR7 i VARPrR(U/(U> < :DLt USR8=VARPTR (U8(0) ) 
499 GOT010000 

8402 7N*="'iZX liPRlNia/PX.ZF*: 



diiet6no, o numero de nomes cataloga- 
dos, exibido no extremo superior do vi- 
deo, sera atualizado. 

A FUNCAO DE CADA OPCAO 

A primeira opcSo possibilita criar um 
arquivo pela primeira vez ou atualizar 
um cataUogo j£ existente. Esta escolha 6 
realizada pelo pr6prio programa, ou 
seja, quando nao exist it nenhum nome 
de programa arquivado, a opcao i consi- 
der ada como CRIAR; caso contrario. 
voce estaii realizando uma ALTERA- 
CAO. Uma ALTERA^ AO torna-se ne- 
cessiria sempre que voce quiser retirar 
ou inserir um programa do/no disquete : 
com esta op?So, voce vai deletar o dire- 
t6rio catalogado antenormente e inserir 
o novo. 

Voce vai utilizar a opclo dois quan- 
do sua discoteca aumentar e for neces- 
sirio usar outro disquete para guardar 
seus programas novos. Esta opcao possi- 
bilita inserir no catilogo o diret6rio de 
um disquete novo. 

A opcSo ties 6 a oposta da dois, ou 
seja, serve para voce retirar o diretdrio 
de um disquete inteiro do catdlogo, por 
motivo de perda ou extravio. 

As op(;oes quatro, cinco e seis nfo re- 
querem a leitura de nenhum diret6rio de 
disco, mas, apenas, o uso do arquivo-ca- 
talogo que se encontra na mem6ria de 
seu micro. Este arquivo encontra-se 
sempre classificado por ordem de pro- 
grama, de modo que toda consulta ao 
arquivo se torna extremamente ripida, 
assim como a listagem do cataUogo, clas- 
sificado por ordem de programa. 

Voce node querer verificar, atrave's 
do video de seu micro, o conteudo de 
um determinado disquete ou listar o 
conteudo de todo o catalogo, classifica- 
do por programa ou por disco, no vfdeo 
ou na impressora. Estas sao as possibili- 
dades que lhe sao oferecidas pela opcao 
quatro. Nao se esqueca, pordm, de que a 
a classificacfo por programa ja" esti reali- 
zada e nao requer nenhum tempo adi- 
cionaJ, ao contrario da classificacao por 
disco que, em testes realizados, levou 18 
segundos para classificar um arquivo de 
1000 nomes de de programas (numero 
miximo de nomes permitido). 

Um fato interessante neste programa 
€ que, se voce pedir a listagem, no vfdeo 
ou na impressora, classificada por disco, 
o arquivo-catalogo nao tern sua ordem 
alterada, isto i, ele continua classificado 
por nome de programa, apesar de voce 
receber os dados na ordem em que pe- 
diu. Para verificar isto, pe9a para que o 
catdlogo lhe seja mostrado no video em 
ordem de programa: voce verd que na"o 
houve tempo de classificacSo. Depois 
pe5a que lhe seja exibido por ordem de 
disco: desta vez ele sera classificado. 

Veja bem que o programa foi organi- 
zado em termos de classificacao por pro- 
grama. Se voce pedir uma listagem do 
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8403 Z*«INKEY*:IFZ*-""THENG0T08403EL5EIFZX>0ANDINSTR( "1234567890" ,Z*)THENPR INT 3Z 

PX*ZX-1,Z*, :ZN% ZN\+Z%:/Z INSTR(ZZ+1 , ZF*. CHRKVo) > :G0T0b403ELSE0NINSTR (CHR*(8>+C 

HR* ( 31 > +CHR1 ( 1 3 > , Z* > G0T08402 , 8402 , 8407 : C0T08403 

8407 IFZX>0THENB403ELSERETURN 

8802 ZX*0x PR INT8ZPX, STRING! <Z1*, 95), • 

8804 Z*=INKEY*xIFZ*«""THEN8804ELSEIFZX«ZlZTHENB805ELSEIFINSTR(Zl*,Z*)THENPRINT3Z 
PX^ZX.Z*, :ZZ»ZX+1 :G0T08804 

8805 0NINSTR(CHRS(8)+CHR*(31)*CHR*<13>,Z*>GOT08807,8802,881O:G0T08804 
8807 ZX=-( ZX>0)"(ZX-1 ) :PR INTaZPX»ZX,CHR»< 95) , :G0T08804 

8810 IFZX'0THENG0T08804ELSEPRINTaZPX*ZX,STRING*(ZlX-ZX," ">, 

8811 IFZX>0THENG0SUB9202:RETUPNELSEZN*="' iRETURN 
9002 Z*=INKEY*» IFZ*»""THEN9002ELSERETURN 

9202 ZN*« P0KEVARPTR(ZN*),ZlZiP0KEVARPTR(ZN*)*2,INT(ZPX/256)t60:P0KEVARPTR(ZN 

S)*1,ZPX-INT(ZPX/256)»256:RLTURN 
10000 CLS 

10002 PRINT80,"AUT0R: ",a25,"«« CATALOGO ••",364 , "LAURENCE F. KING ",892,"VERSA0 
2"»ai28,STRING*(64,i40),8832,STRING*(64,140>,sZP»120tZF*=STRING*(2,95)+~/"*STRI 

NGi( 2, 95) ♦"/"♦STRING* (2, 95) 

10003 ONERRORGOT010006:GET1,1 

10004 Cl(O)=l:Cl(l>-ltCl<5>«VARPTR(D*>:0NERRORG0TOOiPRINT8462 "LENDO ARflUIVO CAT 
ALOGO/TXT DO DISCO", 

10005 FORX«lT0LOF(l)«GETl,X«PRINT86O,USING"l»»)tHI",X,iJ=USKl<VARPTR(Cl(O>)>iNEXT:G 
0T010010 

10006 IFERL-10003AND(ERR/2+l>52)THENRESUME10010 

10007 PRINTa896.CHR*(31),"ERR0 ", ERR/2+1 ,~NA LINHA ",ERL, :CL0SE «F0RX-0T01000«NEX 
TiCLSJEND 

10010 PRINT8896.CHR*(31),3128,CS*,860,USING"llllMll",Cl(4>,:0NERR0RG0T00 
1002U PRINT3236," 

vl> CRIAR/ATUALIZAR CATALOGO 

<2> INSERIR DIRETORIO NO CATALOGO 

<3> DELETAR DIRETORIO 00 CATALOGO 

<4> LISTAR CATALOGO 

<5> LOCALIZAR PROGRAMA 

<6> SALVAR CATALOGO 

<7> TERNINAR", 

10021 PRINT3B96.CHR*(31),:1FPEEK(15480>»320RPEEK(15480>-95THENPRINT8912,CHR*(31> 
,"ENTRE A DATA DE HOJE . . . (ENTER >", 1G0SOBB402 J ZF*-~~ 

10022 PRINT8B1,STRING*(37," "> ,392, "VERSAO 2",3896,CHR*( 31 > ,3914, "ENTRE NUMERO 
DA TAREFA . . ." , :G0SUB9002«R1=INSTR ( "1234367", Z*) « IFR1-0THEN10022ELSETPRK4THENZ 

FS-"<4" 

10023 IF<C1(4)«0AND(R1-10RR1>5))0R(C1<4>>0)THENX-3ELSEIFC1(4)«0ANDR1>1THENX-2ELS 
EX-1 

10024 ONXGOT01002S, 10026, 10029 

10025 PRINT8921 ,CHRi( 31 > ."OPCAO INVALIDA", 3976, Ml*, :G0SUB9002iG0T010022 

10026 PRINT3900,CHR*(31 ) ,"NAO EXISTE NENHUM DADO NO CATALOGO, VOCE SO PODE CRIAR 
-LO" , 3976 , M 1 * • : G0SUB9002 s G0T01 0022 

10029 PRINT3B96,CHR*( 31 >,864^(64-LEN(M*(Rl*l)>>/2,M*<Rl+l).:0NRlG0T01 1000, 11000, 
1 1000, 12000, 13000, 14000, 14000:GOT010022 

11000 GOSUB 38000: 0NRlG0T011001.il 003, 11001 

11001 IFJ>00RCK4)=0THEN11010ELSEPRINT3460,"ESTE DIRETORIO NAO EXISTE NO CATALOG 
0. ..",3978, Ml*, : GOSUB 9002: GOTO 10010 

11003 IFJ-OTHENU010ELSEPRINT3460,"ESTE DIRETORIO JA EXISTE NO CATALOGO. . .",3978 
,Ml*,:G0SUB9002:G0T0i001D 

11010 PRINT3128,CS*,«IFRl-3THEN11100ELSEIFDN>-lTHENG0T0110ilELSEPRINT3463,"aUANT 
OS DRIVES ESTAO DISPONIVEIS 7 ", IZP=500»Z1*«"12" :Z1=1 :G0SU88802lDN-VAL( ZN*>-1 

11011 PR INT3128.CS*, 3896, CHR*< 31), 3392, M*(l>, ON, 3980, MO*, :G0SUB9002iPR INT3128.CS 
*,3896,CHR*(31), 

1 1020 C5 ( ) = VARP TR ( D I * ( ) ) : C5 ( 1 ) -«HF900 « J-USR5 < VARP TR ( C5 ( ) > ) 

11030 C8<6)«DN:j°USR8<VARPTR(C8<0)>)HFC8(4)>0THENPRINT3467,"DISaUETE NAO CONTEM 

DADOS", 3911, Ml*, 1GOSUB9002IGOT010010 
11050 C6<0)-VARPTR(DI*<0)>lC6<l>-C8<4>-i:j»USR6(VARPTR<C6(0>>> 

11070 X-0iPRINT8910.CHR*(31>, "DIRETORIO A SER INSERIOO NO CATALOGO", 3192, "", I IFC 
8(4><°40THENG0T011071ELSEF0RX-0T039lPRINTDI*(X),:NEXTX3PRINT3976,M0*,iG0SUB9002 

11071 PRINT3128,CS*,3960,CHR*(3i),3192,"",:F0RX=XT0C8(4)«PRINTDI*<X),iNEXTX 

11072 PRINT3963,CHR*(30>,M1»," ",M0*, :G0SUB9002:PRINT3128,CS*,3896,CHR*(31 > , I 
I FZ*'"M"THENG0T010020ELSE:0NR1G0T01 1100 ,11200 

11100 IFC1(4)«OTHENGOT011201ELSEGOSUB38300:PRINT3963,M1*," " ,M0*,CHR*<30) , iGO 
SUB9002>PRINT3128,CS*,3B96,CHR«(31),iIFZ**"M"THENG0T010010 

11101 G0SUB38100:IFZ1-C1(4)*00RR1*3THENG0T010010 

11200 IFCB(4>*Cl(4X=1000THEN11201:G0T011201ELSEPRINT392i,CHR*(31>,~NA0 HA MAIS 
ESPACO NO CAIALOGO PARA ESTE 0IRET0RI0~,3976,Mi*, iG0SUB9002«PRINT3128,CS», «8896 
CHR*(31),tG0T010010 

11201 G0SUB38200:PRINT3128,CS(,:G0T010010 
12000 PRINT3128,CS*,3384," 

<D> DISCO 

<C) CATAL0GO",8977,M2*,:GOSUB9O02«0NINSTR("DC",Z*>BOT01210O,12200«G0T012000 
12100 G0SUB38000:IFJ>0THEN12U0ELSEPRINTai28,CS*,a463,"0 DISCO NAO SE ENCONTRA N 
CATAL0G0",3962,CHR*<31),M1*," ",M31, :G0SUB9002: 1FZ*="M"THEN10010ELSE12100 

12110 G0SUB38300>PRINT3962,CHR«(30>,M1*," ",M3», IGOSUB9002: IFZ*«"M"THEN10010E 

LSE12100 

12200 C5(0)-VARPTR<CT*(0) >:C5(1)=SHBA7F: J=USR5( VARPTR (C5(0> ) ) 
12210 PRINT3128, CSt, 3896, CHRt(3i) ,8384," 

<P> CLASS1FICAD0 POR PROGRAMA 

<D> CLASSIFICADO POR DISCO" ,3977 ,M2*, :GOSUB9002« Z1«=INSTR ("PD" Z* > :P 
RINTai2B,CS*, 8896, CHR*(31 ) , I0NZ1G0T012230, 12220IGOT012210 

12220 PRINT8468,"C LASSIFICAND 0", :C6(0)»VARPTR(CT*<0) ) tC6( 1 )=C1 ( 4 >-l : 
J«USR6(VARPTR(C6(0>>> 
12230 PRINT8384," 

<V> SAIDA NO VIDEO 

(I) bAlDA NA IMPRLSSORA", 8977, M2* ; :U0SUB9002:PRINT812B,CS*, 8896, CHR 
*<31) , l ONINSTRCV I ' ,ZS1 GOTO 12300, 12410 1 GOTO 12230 

12300 ONZ100T012301, 12350 

12301 ^RX=OT0Cl(4)-i:Z«192*INT(.(X-INT(X/30)»30>/3>»64*4+20»<X-INT(X/3>»3>lPRINT 

8Z,RIGHT*(LI*(X> ,12) ♦LEFT*(CT*(X">,3),:U/<812THENNEXIELSEPRINTa963,M0*," 

~,Ml*,:G0SUB9002tIFZ*O"M"THENPRINT8128,CS*»3BV6,CHR*(31>»:NEXTXELSEX=ClC4>:NEXT 
X 

12302 IFZ°812THEN10010ELSEPRINT8977,M1*, :G0SUB9002:PRINT8128,CS*, :G0T010010 
12350 DN*'LEFT*(CT*(0),3>:PRINT8912,CHR*(31>,"LISTAND0 DIRETORIO DO DISCO ",8941 
,DN*,8192,"",lZ«0lF0RX»0T0Ci(4)-l:ZN*=LEFT*<CT*(X) ,3) 

IF(<X I INT'. (X Z)/40)»40< >0 >0RX=0 ) ANDDN*^ZN*THENPR INTR IGHT*(CT*( X ) , 12) ♦" 
-'4EXTXELSEHR1NT39U0.M0*; :00bUB9002lPRlNT8128, CS*, 8977, CHR* (30) ,8192, RIGHT*<C 
T*(X).12).:IFDN*=ZN*THENNEXTELSLDN*-ZN*:PRINT8941,DN*,3208,"",:Z-XSNEXT 



PROGRAMA QUE ARQUIVA... 



catilogo no video, classificada por pro- 
grama, voce podera voltar ao menu 
quando bem lhe aprouver, o que na"o 
acontece na Hstagem de classificacao por 
disco, onde somente ao final 6 que lhe 
sera" permitida a volta ao menu. 

Normalmente, se voce tiver impresso- 
ra, a opcao cinco talvez nao lhe seja de 
grande ajuda. jd que voce podera" consul- 
tar a listagem feita para localizar um de- 
terminado programa. Se voce nao a pos- 
sui, no entanto, esta opcao ser-lhe-d de 
grande utilidade. Mas, em ambos os ca- 
sos, digamos que voce nao saiba o nome 
completo do programa, ou se lembre 
apenas das duas ou tres primeiras letras, 
ou, quern sabe, por algum motivo voce 
queira saber quais os programas que co- 
mecam com uma determinada letra. A 
opcSo cinco € que lhe da" estas facilida- 
des, al£m da localizacao ser bastante li- 
pida: voce mal entrou o nome do pro- 
grama e o numero do disquete ]& lhe 6 
fornecido. 

Agora: \i pensou no que voce vai sen- 
tir quando, ap6s um exaustivo trabalho 
de classificar 30 disquetes, houver um 
pique de luz, ou entao se sua mulher, 
depois de cinco minutos chamando-o 
para almocar, resolver apertar o RESET 
de seu micro??? Bem, para preverur es- 
tas situacdes, voce pode salvar seu catd- 
logo varias vezes, voltando, em seguida, 
ao menu para continual suas labonosas 
atividades. Isto e o que lhe possibilita a 
opcao seis. O arquivo Catdlogo/TXT 
somente sera arquivado se ele tiver real- 
men te sido alterado; caso contrario, na- 
da ocorrerd. S6 as opcoes um, dois e tres 
6 que alteram o arquivo. 

OBSERVANCES FINAIS 

Lembre-se de que o arquivo Catdlo- 
go/TXT existente no disquete s6 sera" 
atualizado atrave's das opcoes seis e sete. 
Esta, apos a gravacao dos dados, volta 
para o B ASIC-Disco, encerrando as ativi- 
dades. Nunca encerre suas atividades te- 
clando BREAK ou RESET, pois seu ar- 
quivo na"o terd sido atualizado e todas as 
alteracoes que porventura voce tenha 
realizado estarao perdidas. 

Tecle o programa tal qual esta" na lis- 
tagem. Na"o o modifique, coloque todos 
os pingos nos is, senao voce podera ter 
s£nos problemas para conseguir rodi-lo. 



Lawrence F. King 6 programador M seis anos 
na Embratel, trabalhando principal me nte com 
a linguagem Assembler no software do SCRAM 
— Sistema Computarizado de RetransmissSo 
Automitica de Mensagens. 



64 



MICRO SISTEMAS. fevereiro/84 



t<4)-C3(6>.G0SUB3B4O0lLPRINT:GOT01O010 «-»-* . 

i3M0 PRINT8896.CHR*(31),ai2B.CS*,a393,"ENTRE NOHE DO PROGRAHA « 

PROGRAHA ENCONTRA-SE NO DISCO '" ' ^P : 420.Z1=12:Z1*=Z2*VV".G0SUB8B02: 
i-^™EMSSkl""<2>'ti!;'.:i.pS I »Ta4 20 .CH«..3O,,» : , 5 S.CH«i( 3 O., a8 Vd.t»..(31.,.l! 

at , ^aaasa}«8asaa--*wM--«--« 

14004 H IFR1'6THENZF»- B0T010010ELSECL0SE.CLS.END 

«~^S«^Sa*»saaMJSsaa!Si 
fc x saaa»a»?Kjpsaaw«-«--. 

sraa«a«s?SSMr > «8SJwaB,*'^' ■ 
arsaws55Ra«jaas[»affi?a--^-«. 

30) »D%»:J-USR7<VARPTR<C1<0>>>«NEXTX. RETURN 

lllol KSSaWcHRtOtl, ERRO — "^ 3«« - HPACO DO CATALOGO NAO EH S 

SUB9002«PRIN18?60,CHR*(30),ai2B,CS* > at?2,""»RIGH1*(D* t i2).-GOT03830i 

3^00 IFJ>FNHPX(Cl)THENC3( 7 )-J-FNHP 2 (Ci..J»FNHPX<Cl>:G0SU838 5 00.J.C3( 7 ,.G0T03840 

?!1S7> 2- " ""V'EH il 100 EH . «;ZN*«LPRINT.LPRINTSTRING*<<PEEK<16427)-<38*LEN(H* 

zKSJ n/2 - " l" STAGEH DO CATALOGO CLASSIFICAOO POR ",H%<Zf9> , >C2-8 
36700 LPRINI.LPR[NT:LPRINT:LPRIHTSTRING*<PEEK(16427)- 6 >(Zl^).l»<Zi=2).3." ">,H* 

sFNPN*(CT*<X),Zl),:Z-l«NEXT 
38801 C2=C2+FNZP2<J.C1) -RETURN 



Exemplo de saida 



ADVINHO/BAS 
ENGENHEI/BAS 
SIM 

BAB 



BANCOS/Bi 
FLEXCATi/l 

KEY 
TROC CMD 



MD 

ESS 05B 

HD 42A 

/PAT 31 A 
ALAI 

05A 

ANDRE/DIF 

ANIMAL 08B 

ARMAGED/BAS 42A 

•LUM/CMD 04B 



ACC3RT/CMD 

ACCPi/CMD 42A 

ACRE 

ADVINH i 03B 

ALPHA/BAB 

AMAPA 07B 

ANDRE/GRF 5iA 

APL/CMD 47 A 

ARMAGED/BAS 45A 

AT0M01-) GOB 



Este programo pode listar catdlogos classificados por disco ou por programa. 



m 




TECNOLOGIA 
EFICIENCIA 

SERIEDADE 
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2748845 



IVOCE TEM UM MICRO?| 
NOS TEMOS 

ybprimc-nto 

DISKETTE S 1/4" E 8" 

FORMULARIO CONTf NUO 
FITA IMPRESSORA 
FITA K-7 CURTA DURACAO 

ETIQUETAS ADESI VAS 

PASTA P/FORMULARIOS 
80 E 132 COL. 

ARQUIVOS EM ACRtLICO, ' 
RACKS E PASTAS 
PARA DISKETTES. 

REBOBINAMOS QUALQUER FITA 

PRONTA ENTREGA 

QUALQUER QUANTIDADE 

GARANTIA E QUAUDADE. 



/uprimcnto 

RUA VISCONDE DE PWAJA SSO LOJA 202 
(0211 2H-A84S (02)1 246-1180 BIP 36X8 
IPANEMA RIO lOUl 81S3344 BIP S87A 



Um algoritmo e um circuito para a gravacao de memorias do tipo PROM 
atrave's do prdprio microcomputador 



Um metodo facil 
de programar PROMs 



Feli'cio Barbosa Monteiro 
Celso Henrique Ribeiro 



No desenvolvimento de software 
para sistemas baseados em mi- 
croprocessadores, o resultado 
final de um desenvolvimento 
deve ser sempre transfendo para algum 
tipo de PROM para uso posterior do sis- 
tema. Nestes casos, e" prefen'vel transfe- 
rs o software desenvolvido diretamente 
das memorias do sistema de desenvolvi- 
mento para as PROMs. sem a necessida- 
de de escrever e ler cm um programador 
externo. 

circuito aqui apresentado foi ela- 
borado tendo por base um microcompu- 
tador desenvolvido no Laboratono de 
Microssistemas da EFEI - Escola Fede- 
ral de Engenhana de Itajuba, a partir do 
microprocessador 6800. No entanto, ve- 
se claramente que ele pode ser mterco- 
nectado a outros sistemas rrucrocompu- 
tadores, pois as hnhas utilizadas nesta 
interligacao sao as_de dados, de endere- 
90s, de leitura (R/W), de endereco vali- 
do (VMA), de sincronismo ( (j) ) e de 
RESET, linhas estas disponi'veis em 
todos os microprocessadores. 

Foram utilizados Adaptadores de 
Interface de Penfencos (PIA) 6821 para 
facilitar as operates de gravacao e pos- 
terior verificacao. 

Para a temporizacao de gravacao, 
optou-se pela utilizacao de um monoes- 
tdvel externo (74LS123) controlado por 
software, com a finalidade de evitar pro- 
blemas com as frequencias de operacao 
dos diversos sistemas. 
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O programa requendo para o contro- 
le deste circuito de gravacao/venficacao 
pode residir em um sistema monitor ou 
em alguma outra irca designada pelo 
usudrio, uma vez que o mesmo 6 reloca- 
vel. 



HARDWARE 



A figura 1 mostra o circuito desen- 
volvido, no qual foi utilizada a mem6na 
2716. A escolha deveu-se ao fato de sua 
simplicidade (fonte unica para gravacao: 
♦25V), sua capacidade (2 Kbytes), ta- 
manho de palavra (8 bits), seu amplo 
uso em sistemas com microprocessado- 
res. seu processo de apagamento pela luz 
ultra violeta, sua facil aquisicao e por exis- 
tirem vdrias mem6rias de capacidades di- 
ferentes, pordm com as mesmas caracte- 
n'sticas de gravacao que a 2716 (2732, 
2758 etc), que poderiam ser utilizadas 
tendo por base este mesmo circuito. 

Vejamos os outros componentes. Os 
integrados 74LS04, 74LS27 e 74LS42 
atuam como decodificadores de endere- 
50s dos PIAs A e B, sendo que os ende- 
recos de 8000H a 8003H referem-se ao 
PIA A c 8004H a 8007H ao PIA B. 

CI 74LS20 tern a finalidade unica 
de habilitar o buffer no barramento de 
dados quando a UCP esta* lendo uma 
infor maca o proveniente deste circuito 
(hnha RE). 



O PIA A tern a finalidade de endere- 
car as diversas posicQes de memoria a 
screm gravadas ou venficadas. Isto 6 fei- 
to atraves da porta A (PA ate PA 7 ) e 
da porta B (PB ate* PB 7 ), o que deve 
sei levado em conta na programacao do 
PIA. 

PIA B tern cinco finalidades: 

- fornecer dados a serem giavados nos 
endere^s espccificados pelo PIA A, 
atraves da sua porta B; 

- receber, atraves de sua porta B, os da- 
dos especificados pelo PIA A para serem 
venficados; 

- selecionar gravacao ou verificacao de 
dados da memoria atraves da porta 
A (PAj ) (0 = venficar, 1 ■ gravar); 

- produzir o pulso de gravacao, dispa- 
rando, para tanto, o monoesta"vel 
74LS123, atraves da linha PA , que 
deve estar ajustado para um pulso mini- 
mo de 2ms e rndximo de 55 ms; 

- venficar o tdrmino do pulso de grava- 
cao. utilizando, para isto, a linha PA 7 . 

Devc-se notar na figura 1 que a porta 
B do PIA A ainda dispoe das linhas PB3 
ate PB 7 , fato que possibilita expandir a 
mem6ria a ser gravada para ate* 16 bits 
de endcre?o (64 Kbytes de dados). 

Convdm salientar que a fonte de ali- 
mentacao para gravacao/verificacao 
(+ 25 V) s6 deve ser ligada ao pino 21 
do CI 2716 apos o sistema sofrer um 
RESET de duracao igual a pelo menos 
oito ciclos do sinal (t) , por causa da 
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Figura 1 - O circuito de gravacdo/verificacdo. 

necessidade de se levar a hnha PA do 
PIA B ao ni'vel logico antes de se ini- 
ciar a gravacSo. 

Aquj cabe ainda abnr um pequeno 
parentescs para melhor explicar o uso da 
fonte de alimentacSo de 25 V. 



A FONTE DE 25V 

A memona EPROM 2716 pode tan to 
ser gravada como lida (venficada) com o 
seu pino 21 ligado a uma fonte de 25± 1 
volt, com cor rente maxima de 30 mA. A 
difcrenca de uma condicao para outra e 
realizada atraves do pino 20 (G),que de- 
ve ser colocado em ni'vel alto (+5V) para 
gravaca"o e baixo (OV) para verifica^ao. 
pino 21 deve ser conectado a +5V 
para operacab normal_ da memona e, 
neste caso, o pino 20 (G) deve ser ligado 

a volts. 

No nosso caso, que compreende ape- 
nas gravacfo e verifica^So, optamos por 
deixar o pino 21 constantemente ligado 
a +25V e diferenciar entre gravacaq_e 
venficacao atravds do pino 20 (G). 
Assim, a fonte de +25V pode ser ligada 
e desligada atraves de uma chave, tendo- 
se (como ja foi dito) o cuidado de so 
ligar a chave (fonte de +25V) apos a rea- 
liza^ao do RESET, por causa de o ni'vel 



-5 R/W e 2 RESET 



16gico inicial no pino 20 (G) ser desco- 
nhecido. uma vez que este pino esti 
alimentado atrave's de uma das sai'das do 
PIA B (6821). Na figura 2 esti Uustrado 
o funcionamento desta memona. 

Assim scndo, e" 16gico que se podena 
utilizai o propno microprocessador para 
controlar a fonte de +25V, atrave's do 
PIA e um transistor ou SCR. 

A fonte de + 25±1V - 30 mA pode. 
dcvido as suas caracten'sticas simples, 
ser facilmente construida com regulador 
de tensSo ajustdvel do tipo LM 317 
(vide pg. 175, Linear /Switchmode Vol- 
tage Regulator Handbook, Motorola). 

O SOFTWARE 

A figura 3 £" o algoritmo necessano 
para a micializacao dos PIAs, para a gra- 
va?ao e para a verificacao, utilizando o 
circuito da figura 1. Neste algoritmo, as 
posicSes de memdrias RAMs utilizadas 
receberam as seguintes denomina96es: 
• CONT. GRAV. - ContCm em com- 
plemento de dois o numero de vezes que 
se deseja que uma determinada posicao 
seja regravada quando apresentar erro. 
Em nosso programa, foi utilizado o en- 
dere^o 0006H com um numero de regra- 
vacoes igual a 5 . 
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• END. GRAV. - Contem o endere90 
da posicao da EPROM a ser gravado/ve- 
rificado. Utilizamos os endere90s 0000H 
cOOOlH. 

• END. COP. - Contdm o endereijo da 
posicao de memona a ser copiada na 
EPROM. Utilizamos os endere?os 
0002H e 0003H. 

• END. FINC. - ContCm um a mais 
que o endere^o do ultimo conteudo a 
ser copiado. Foram utilizados os endere- 
90s 0004H e 0005H. 

O programa apresentado em Assem- 
bler, ao final, foi desenvolvido a partir 
deste algoritmo e 6 pr6prio para siste- 
mas baseados no microprocessador 
6800. Entretanto, a partir deste algorit- 
mo, pode-se facilmente implantar um 
programa para sistemas baseados em ou- 
tros microprocessadores. 

Para mdicacao de PRONTO ou de 
ERRO foi usada a sub-rotina MENSAG., 
do monitor do sistema de desenvolvi- 
mento. Esta sub-rotina simplesmente 
mostra em display a palavra formada 
pelos modelos de caracteres representa- 
dos pelos bytes que seguem a instrucao 
de chamada desta sub-rotina. Em seu 
lugar, pode-se usar qualquer outra sub- 
rotina para sinalizar estas duas condi- 
96es. 
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Figura 2 

- Algoritmo 

de funcionamento 

da memdria. 
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Montagem e material necessario 



Nao deve haver maiores dificuldades para a 
montagem, uma vez que a interligafdo pi- 
no a pino dos componentes jd estd indicada na 
figura 1. Pode-se facilmente construir um 
impresso para isso atravisde desenvolvimento 
ou mesmo com a utilizacdo de placas padroes. 
Alim disso, como opcdo em face do pequeno 
ntimero de componentes envolvidos.a monta- 
gem em protoboard pode ser utilizada. 

O materia! necessario e o seguinte: 

Circuitos integrados: 

- 74LS04 - / peca; 

- 74LS20 - 1 peca; 

- 74LS27 -2pecasi 

- 74LS42 - I pec a; 

- 74LS123- / peca; 



- 6821 - 2 peca s: 

- 2716-7 peca (memdria a ser gravada). 
Capacitor: 

- 1 capacitor de pollster metalizado 
2,2 V Fx63 volts. 

Trimpot: 

- 1 Trimpot de 47k SI . 
Soquete 

- 1 soquete de 24 pinos tipo zero Force 
textool. 

O conector do circuito para o si sterna de 
desenvolvimento deve serescolhido de acordo 
com as facilidades apresentadas pelo sistema 
do usudrio. 

Na figura 4 podemos ver o funcionamento 
desta memdria. 





NUMERO DO PINO 


MODO 


9-11, 
13-17 
«D -D 7 ) 


12 
tv ss» 


18 
ICE) 


20 
G 


21 


24 

(v cc> 


Leitura 


Saida de 
Dado 





V IL 


V IL 


5V 


5V 


Saida desabilitada 


Alta lap. 





X 


V IH 


5V 


5V 


Standby 


Alta lap. 





V IH 


X 


SV 


5V 


Prograaagao 


Entrada de 
Dado 





Pulso 


V IH 


25V 


5V 


Verificar Proqraaagao 


Saida de 
Dado 





V IL 


V IL 


25V 


5V 



Figura 4 



Celso Henrique Ribeiro e Felfcio Barbosa Monteiro sSo engenheiros eletricistas/eletronicos e 
professores da Escola Federal de Engenharia de Itajuba" nas Areas de Eletronica Digital e Micro- 
processadores. Ale"m disso, fornecem treinamento e consul tor ia a empresas nestas Areas, at rave's 
da FUPAI — FundacSo de Pesquisa e Assessoramento a Industrie. 



0001 MNICIALIZACAO 


PIAS 




0002 










0003 0010 CE PF04 






LDX 




0004 0C13 PF 8000 






STX 




0005 0016 FP 8002 






STX 




0006 0019 CE 0304 






LDX 




0007 001C FF 8004 






STX 




0008 










0009 'PREPARAR 


PROM 


PARA 


GRAVAR* 


0010 001F 86 02 


NOVPOS 


LDA 


A 


0011 0021 B7 8004 






STA 


A 


0012 0024 86 FB 






LDA 


A 


0013 0026 97 06 






STA 


A 


0014 0028 86 00 






LDA 


A 


0015 002A B7 8007 






STA 


A 


0016 002D CE FF04 






LDX 




0017 0030 PF 8006 






STX 




0018 0033 B6 0000 






LDA 


A 


0019 0036 B7 8002 






STA 


A 


0020 0039 B6 0001 






LDA 


A 


0021 003C B7 8000 






STA 


A 


0022 










002 3 'ATUALIZAF 


END 


GRAV 


• 


0024 003P PE 0000 






LDX 




0025 0042 08 






I NX 




0026 0043 FF 0000 






STX 




0027 










0028 'VERIPICAF 


FIM 


DE GRAV.« 


0029 0046 FE 0002 






LDX 




0030 0049 BC 0004 






CPX 


ENDFINC 


00 31 004C 26 0A 






BNE 


GRAVAR 


0032 004E BD FD8C 






JSR 


MENSAG . 


0033 0051 67 057E 






FCC 




0034 0054 76 0FFE 






FCC 




0035 0057 3E 






WAI 




0036 










0037 *GRAVAR 


1 


mJALIZAR 


END. COP.* 


0038 0058 A6 00 


GRAVAR 


LDA 


A 


0039 005A 08 






I NX 




0040 005B FF 0002 






STX 




0041 005E B7 8006 






STA 


A 


0042 0061 86 03 


REGRAV 


LDA 


B 


0043 0063 F7 8004 






STA 


B 


0044 0066 C6 7D 






LDA 


B 


0045 0068 5A 


TEMPO 


OEC 


B 


0046 0069 26 FD 






BNE 


TEMPO 


0047 006B F6 8004 


FIMPU 


LDA 


B 


0048 006E 28 FB 






BMI 


FIMPUL 


0049 










0050 'PREPARAR 


'ARA 


VERIFICACAO* 


0051 0070 C6 00 






LDA 


B 


0052 0072 F7 8007 






STA 


B 


0053 0075 CE 0004 






LDX 




0054 0078 FF 8006 






STX 




0055 007B C6 00 






LDA 


B 


0056 007D F7 8004 






STA 


B 


0057 










0058 'VERIFICAR 


E REGRAVAR* 


0059 0080 F6 8006 






LDA 


B 


0060 0083 11 






CBA 




0061 0084 27 99 






no 




0062 0086 C6 02 










0063 0088 F7 8004 






STA 




0064 008B C6 00 






LDA 




0065 008D F7 8000 






STA 


B 


0066 0090 CE FF04 










0067 0093 PP 8006 






STX 




0068 










0069 "VERIFICAR 


FIM 


DE REGRAV.* 


0070 0096 7C 0006 






INC 


CONTGRAV 


0071 0099 26 C3 






BNE 


REGRAV 


0072 009B B7 FD8C 






JSR 


MENSAG 


0073 009E 4F 0505 










0074 00A1 FE 






FCC 




0075 00A2 3E 






Ml 





Figura 3 - Programa Assembler para 
inicializacdo das PIAs. 
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EQUIPAMENTOS 

• Vendo micro DGT-100. 16K, 
interface, impressora, cabo para 
interface, com video e gravador. 
Tel: (021) 273-1745, falar com 
Jair. 

• Vendo esquema eletrico dot 
micros: TRS-80 I, TRS-80 Color 
Computer, Apple II Plus. Descri- 
cao do hardware dos mesmos, edi- 
tor Assembler para JR Sysdata e 
D-8000, em fita. Tratar com En- 
rique Ferri, Rua Fiacao da Saude, 
128/103, SSo Paulo, CEP 04144, 
SP, tel: 579-1354, a noite. 

• Radioamador- Vendo interface 
pura decodif icacao de CW para os 
micros da linha Sinclair. Tratar 
com PY2-EMI, Renato Strauss, 
Rua Cardoso de Almeida, 654/32, 
CEP 05013, SSo Paulo, SP. 

SOFTWARE 

• Vendo ou troco programas pa- 
ra a logica Sinclair. Acervo com 
mais de 150 programas. Tratar 
com Wilson Batista, Cx. Postal 
2559, Santos, CEP 11100.SP. 

• Psicologia - programas espe- 
cial izados para DGT-100 e CP-500 
Ja disponi'veis com alguns testes 
de personalidade e diversos para 
aplicacoes usuais em dificuldades 
escolares infantis. Outras opcoes, 
sob encomenda. Contatos com 
Cleusa de Carvalho Dalton, Centro 
Ch'nico do Lago, Q09 Bl E, SI 
211, CEP 71600, Brasilia - DF. 
Tel. (061)2484)482. 



• Vendo uma fita cassete com 
pequeno manual explicativo con- 
tendo dez programas de 1 k de 
mem6ria, todos de minha autoria, 
dos quais sete sao jogos. Podem 
ser carregados em qualquer equi- 
pamento da linha Sinclair, com ou 
sem slow. Tratar com Marcos, 
pelo tel: (011) 63-3324, SSo 
Paulo. 

• Troco programas para o TK82- 
C, jogos e utilitarios. Desejo tam- 
Mm entrar em contato com pes~ 
soas da regiao de Jundiai' para for- 
mar um clube de computacao. 
Cartas para Edson Bueno da Silva, 
Av. Manuel Pontes Junior, 295, 
Vila Rami, Jundiaf, SSo Paulo, 
CEP 13200. 

• Vendo programas para Apple, 
entre eles Visicalc e Magic Win- 
dow. Tratar com Francisco pelo 
tel: (011) 832-5131 (SSo Paulo). 

• Troco programas para CP, TK. 
NE em fita cassete. Jogos anima- 
dos, aplicacoes comerciais, nacio- 
nais e importados. Tratar com 
Raul Horter na Av. Brasil, 3507, 
Cx. Postal 46, Campo Bom, RS, 
CEP 93700. 

• Vendo programas para micros 
compatfveis com o Sinclair, princi- 
pal mente jogos, como MAZOGS, 
FUNGALOIDES E INVASION 
FORCE. Aceito trocas. Interessa- 
dos escrevam para Luiz Carlos 
Fernandes, Rua Atos Damasceno, 
310, Vila Sta. Catatina, SSo Paulo, 
CEP 04372. 



• Troco ou vendo programas de 
jogos do CP-300/500. Tenho jo- 
gos como Galaxi, Cosmic, Meteor, 
Scarf, Attack. Pinball. Roboatak, 
Xadrez e outros, ao preco de 
Cr$ 6 mil por unidade, ja com a 
fita. Tratar com Roberto Vaz 
Piesco na Rua Amelia Correa Fon- 
tes GuimarSes, 152, Caxingui, SSo 
Paulo, SP. CEP 05617. 

DIVERSOS 

• Vende-se cadastro de firmas 
que possuem computador e outro 
de oessoas ligadas a area de Infor- 
matica. Cx. Postal 7459, CEP 
01000. 

• Expande-se hardware de DGT- 
100 e TK-85, tornando-os aplica- 
veis ao uso cienti'f ico e tecnol6gi- 
co. Nahal - Cx. Postal 1114717 
- Ipanema - RJ - 22412. 

• Compro n°. 9 de MICRO SIS 
TEMAS. Tratar com Claudius, 
Rua Santos Dumont, 825, Petro- 
polis, RJ, tel: (0242) 42-1175. 

• Compro os exemplares de 
MICRO SISTEMAS do n° 1 ao 
n°. 16 (ou qualquer um deles); 
pago preco atual. Os interessados 
devem se comunicar com Ricardo 
Cardoso pelo (0132) 31-6855, 
deixando recado e telefone. 

• Vendo o livro: Fundamentos 
do CMS — Convernational Moni- 
tor Systems. Preco a combiner. 
Jose Faria, tel: (021) 260-9034 
(ap6sas21:00h). 




• A Coordenadoria de Divulga- 
cab Cientffica e Cultural - CDCC, 
do Instituto de Ffsica e Qui'mica 
de Sao Carlos, Universidade de 
SSo Paulo, comunica a formacao 
do seu Clube de Computacao, que 
atua principal mente na area edu- 
cacional e cientffica e deseja en- 
trar em contato com outros clu- 
bes. O endereco para contatos e 
Cx. Postal 369, CEP 13560, SSo 
Carlos, Sao Paulo, telex 165122 - 
FQSC. 

• Compro um manual de instru- 
cdes para o programa PROFILE 
III (c. 1982 by Small Computer 
Company). Lucio A. Castagno, 
Rua Gal. Os6rio, 1585, tel: 23- 
0555 - CEP 96100. Pelotas - RS. 

• Gostaria de obter maiores es- 
clarecimentos sobre o compilador 
FORTH para Z80, ou com o au- 
tor deste artigo publicado em MS 
22 e 23, ou com leitores interes- 
sados na materia. Marcelo Miran- 
da, SON, 406 B. apto. 205, Bra- 
sflia.DF, 70000. 

• Primeiro Clube Nacional do 
VX ESPECTRO: troca de progra- 
mas, troca de informacdes, trans- 
codificacoes para sistema brasilei- 
ro. Andre" Luiz Behrensdorf Der- 
rik, Rua Senador Vergueiro, 198/ 
101, tel: 551-1828, Flamengo, 
CEP 22230, Rio de Janeiro. 

• Gostaria de trocar ideias com 
possuidores da HP-86/87 para in- 
tercambio de informacoes. Tel.: 
247-9391. Joel, RJ. 















/wens 


=Fl3 






1 


arro 


MSN? 


NAPAGINA 


ONDE SE L£ 


LEIA-SE 


25 


1 18, na linha 
830 da I i stage m 
Ajuste 


830 LET B = (N * SXY - 
SX * SY) (N * SX2 
- (SX) * * 2) 


830 LET B = (N * SXY - 
SX * SY) / (N * S 
X2 - (SX) * * 2) 


Como no n° 27 as tres ultimas correooes da Mensagem de Erro foram trocadas, publicamos a seguir, para evitar qualquer 
duvida, a forma correta: 


25 


46, no 59 
paragrafo, 

linhas 4 e 5 


POKE 16389,120 e 
NEWLINE 


POKE 16389,120 
NEWLINE NEW NEWLINE 


25 


100, na linha 
5016 da listagem 
Super Star Trek 


5016 LET Q3-Q1 


5016 LET Q3=Q1 


25 


101, a linha 8500 
da listagem Super 
Star Trek foi 
numerada erradamente 


6500 GOSUB TR 


8500 GOSUB TR 
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Se voce tern pequenas rotinas e programas utilitarios real- 
mente liteis tomando poeira em seus disquetes ou fitas casse- 
te, antecipe-se aos piratas e trate de divulga-los. Envie-os pa- 
ra a REDACAO DA MICRO SISTEMAS - SE^AO DICAS: 
Rua Visconde Silva, nQ 25, Botafogo, RIO DE JANEIRO-RJ, 
CEP 22281. 

Nao se esqueca de dizer para qual equipamento foram de- 
senvolvidos. Desta forma, sua descoberta podera ser util para 
muitos e muitos, em vez de desmagnetizar-se com o tempo 
em suas fitas e disquetes... 



Linha Sinclair 



Nevoa no video 

Jogue uma ndvoa no seu video, e atrapalhe a lei- 
tura de seus programas pelos "espioes", com este pro- 
grama em Assembler: 

16514 3E65ED47C9 

Para utilizd-lo, digite RAND USR 16514, mas an- 
tes 6 preciso dar um POKE na posicao 16515, sendo 
que com POKE 16515,101 voce cria a nevoa, e com 
POKE 1651530 a neroa 6 desfeita. 



Paulo Henrique J. Abranches MG 



Linha Sinclair 



Moldura na tela 

Desenhe uma moldura na tela dos seus programas 
com esta rotina em linguagem de maquina: 

16514 3E xx 2A 0C 40 06 20 23 

16522 77 10 PC 06 14 23 23 77 

16530 11 IP 00 19 77 10 P6 23 

16538 06 20 23 77 10 PC C9 

O endereco 16515 (XX) conte'm o codigo do cardter 
que formard a moldura. E para emoldurar o video, use 
RAND USR 16514, mas lembre-se de nao escrever nada 
nas posicoes da moldura. 

Paulo Henrique J. Abranches-MG 



Linha 



Um INPUT diferente 

Use no seu programa um INPUT que \i vem com o 
cursor [G] para entrar com dados no modo Graphics: 
100 POKE 16390,1 16 
110 INPUT A$ 

Simples, nao? E que o endereco 16390 6 a varidvel 
do sistema chamada MODO e o valor 116 6 o codigo pa- 
ra o cursor Graphics. 

Paulo Henrique J. Abranches-MG 



lili- 



TRS 80 



Conversao binario-decimal direta 

Converter um niimero binario de oito bits para um 
niimero decimal e" uma rotina bem simples. Mas, e se 
quisermos ler o resultado direto do teclado? Com esta 
dica, isto tambdm seri muito facil. Vamos supor o nii- 
mero (1001) 2 : se o ajustarmos em oito bits, teremos: 



valor — *• I 
niimero do bit — »- 7 6 





5 




4 


1 1 
3 1 2 




1 



Ate* ai, nada de novo. Entre entao com esta rotina: 

10 PRINT @ 532, PEEK (14480); " " : GOTO 10 

e logo depois digite estes dois comandos: CLS: RUN. 
Agora 6 s6 apertar os niimeros dos bits setados (no nos- 
so exemplo, 3 e 0), que voce vera no meio da tela o 
resultado convertido. 

Helve" cio C. Ribeiro Netto-RJ 
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dB/MICRO 

AV. ALFONSO BOVERO 2 1 8 

SAO PAULO S.P. 

BRASIL 

TEL. 101112630711 



HOT LINE dB/FONE 

PROGRAMA dB/I 

PROGRAMA dB/II 

JORNAL DO USUARIO dB/Clube 

TREINAMENTO BASICO dB/Treino B 

TREINAMENTO AVANCADO dB/Treino A 

TREINAMENTO EM DISCO dB/Treino D 

SEMINARIOS PARA EXECUTIVOS dB/seminarios 

APOIO A AUTORES INDEPENDENTES dB/Aplicativos 



SLPORTE 

TOTAL 

AOS 

USUARIOS 
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SCROLL e CLSparciais 

Se voce quer conservar as NT linhas do topo do video in- 
tactas e realizar, respectivamente, SCROLL ou CLS nas res- 
tantes, basta determinar o valor de NT, entrar no pequeno 
trecho em BASIC (que apresentamos a seguir) para ajustes 
nas constantes da parte em Assembler, e utilizar em seu pro- 
grama principal, conforme descrevemos: 

• BASIC: 

1 REM 123 ... (30 caracteres) ... 



999 LET NT= (valor entre e 20; opcao: 
999 INPUT NT) 
1000 LET E=16518 
1010 LET K1=33*NT 
1020 GOSUB 1100 
1030 LET E=16528 
1040 LET K1=726-K1 
1050 GOSUB 1 100 
1060 POKE 16535, 24-NT 
1070 . . . 



1100 POKE E,256*(Kl/256-INT (K1/256)) 
1110 POKE E+1,INT (K1/256) 
1120 RETURN 

• Assembler (entre usando o Monitor Assembler de MS 
n9 23,pagina 10): 

16514 2A 0C 40 11 00 00 19 E5 11 21 
16524 00 19 Dl 01 D6 02 ED B0 C9 00 
16534 06 18 CD 2C 0A C9 00 00 00 00 

E para chamar estas sub-rotinas, digite : 
SCROLL: RAND USR 16514 
CLS: RAND USR 16534 

ObservacSo: as sub-rotinas, do modo como se encontram 
acima, funcionam como SCROLL e CLS normais (condi- 
qSo equivalente a NT= 0). 

Clodoveu A. Davis Jr.-MG 



Linha TRS Color 



Aumente a memoria 

Se voce quiser aumentar a mem6ria disponivel do 
seu Color, uma boa soluc£o 6 eliminar alguns recursos 
que voce nao ira" utilizar. Assim, para eliminar as pagi- 
nas graTicas, digite: 

POKE 26,1: NEW 

Para poder ocupar a area reservada aos strings, e 
ganhar com isso mais mem6ria, use o comando 
CLEAR 0. E se voce utilizar disco no seu equipamen- 
to, pode preencher tambCm a area de buffer elimi- 
nando-a com: 

FILES 0,0. 

Marcel Tarrisse-RJ 



TRS Color 



Bloqueando a listagem 

Para evitar que os "piratas" tenham acesso d lista- 
gem do seu programa, bloqueie a listagem digitando: 

POKE 383,158 

E depois que os "olheiros" forem embora, para 
voltar ao normal basta teclar: 

POKE 393,0 



Marcel Tarrisse-RJ 



TRS 80 



Inicializar sem data 

Um meio rdpido, facil e eficiente de evitar forne- 
cer data e hora nas inicializacdes do Sistema Operacio- 
nal e\ assim que a data for pedida, apertar novamente a 
tecla RESET do micro. Assim, o Sistema Operacional 
sera 1 imcializado sem problema. 

Luiz Gonzaga de Alvarenga-GO 



Linha TRS 80 



Diga P ara alterar a mensagem do DOS500 Ativo, no sistema operacional do seu CP-500, para Diga 

MGStre Mestre, experimente esta sequencia de PATCHs: 

PATCH *1 (ADD=509C,FIND=444F53,CHG=446967) ENTER 
PATCH *1 (ADD=509F,FIND=353030,CHG=61204D) ENTER 
PATCH *1 (ADD=50A2,FIND=204174,CHG=657374) ENTER 

PATCH *1 (ADD=50A5,FIND=69766F,CHG=726520) ENTER 

Na"o se esque9a, ehtretanto, de experimentar esta sequencia em uma copia do DOS. E se voce 
quiser colocar qualquer mensagem no lugar do DOS500 Ativo, desde que nao ultrapasse 12 ca- 
racteres, use nos CHG a representacSo hexadecimal dos caracteres desejados, de acordo com a 
tabela das paginas 159/161 do Manual. 



Carlos Lacerda Lopes MG 
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Por partes, voce podera obter os valores necessaries para a construcao 
de lajes, atrave's deste programa para os micros da linha TRS-80 modelo III 



Calculo dos esfor^os 
e armadura de lajes 



Osva/do Scorcio Pereira 



O programa que ora apresenta- 
mos efetua o calculo dos es- 
forcos em lajes, momentos e 
distribuicao de cargas para 
as vigas adjacentes pelo Metodo da 
Ruptura (o me'todo mais economico 



da atualidade), calculando ainda a ar- 
madura de lajes no estado ultimo. 
Foi desenvolvido em BASIC para os 
micros compati'veis com o TRS-80 mo- 
delo III e 6 composto de quatro sub- 
programs que devem ser escolhidos 



pelo usuario assim que, no video, apa- 
reca a seguinte mensagem: *** MO- 
MENTO (M), CORRECAO (C), CAR- 
GA (G) OU ARMADURA (A) * * * 
Para selecionar o programa deseja- 
do, basta pressionar a tecla indicada 



CASO 1: 
j2 = * 



jl =0 



L x 



CASO 4B: 
j 2 = 75 

/////////// 



N 

J I =.75 
//////////I 



L x 



r 



CASO 2 A: 
j2 = <3 



1* 



m 









'A Ji=<* 



L x 



CASO 5A: 
j2= .65 



it 



//////////j / 



-,'. 



J! 



i ! 



m 

» ',' 



Lx 



CASO 2B: 
j2 «.85 



j\--a 



Lx 



CAS0 5B: 
j2 =65 






J I =65 



W///W 



L x 



V 

% 



CASO 3 : 
j2=75 
//////////A 



J I = «5 



W 



CASO 6: 
j2 = .55 



/////////ft 



= ! 



• 1 
" t 



< f ///////// 



Lx 



CASO 4 A: 
j2=<* 



J 



• Jl=( 



Lx 



Figura 1 



72 
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entre parenteses. primeiro (MO- 
MENTO (M ))calcula os momentos po- 
sit ivos e negativos da laje; pressionan- 
do (M), o programa pedira, na seguin- 
te ordem: 

• Q = ? - carga distribuida em qui- 
lograma-for9a por metro quadrado 

• Lx = ? - menor vao da laje em me- 
tros 

• Ly = ? - o outro vao em metros 

coeficientes 
que determinam 
o grau de 
engastamento 
e posicao dos 
engastes (ver 
figura 1) 

Feito isso, voce obtera os valores 
dos momentos negativos XI, X2, Yl 
e Y2, assim como dos momentos posi- 
tives Mx e My, todos em metro qui- 
lograma-forca por metro. 

Ao t^rmino do equilibrio dos mo- 
mentos negativos, micie o programa no- 
vamente e selecione o de CORRECAO 
(C), o qual cornge os momentos positi- 
vos Mx e My em funcao dos seus novos 
momentos negativos. Pressionando (C), 
o programa pediri, na seguinte ordem: 

• Q =? - carga distribui'da em quilogra- 
ma-for9a por metro quadrado 

• Lx — ? - o outro vao em metros 




il/Xl = ? 

i2/X2 = ? 
jl/Yl =? 

j2/Y2 = ? 



os respectivos 
valores dos seus 

> novos momentos 
negativos, em metro 
quilograma-forca 
por metro, segundo 
o desenho da figura 2 









Y2 




































X 






a 

Mx 




OJ 
X 


-I 






















Yl 










Lx 



















A seguir, voce teii os novos valores 
dos momentos positivos Mx e My, em 
metro quilograma-forca por metro. 

Inicializando o programa mais uma 
vez, selecione o terceiro (CARGA(G)), 
que calcula as cargas que sera"o trans- 
mitidas para as vigas adjacentes as la- 
jes. Pressionando (G), o programa pe- 
dira\ na seguinte ordem: 

• Q = ? - carga distribuida em qui- 
lograma-forca por metro quadrado 

• Lx = ? - nesse caso, o vao mais en- 
gastado ou o menor va"o, de acordo 
com os casos de MARCUS, em metros 

• Ly = ? - o vao na outra direeffo em 
metros 

• Caso: ? - o numero do caso segun- 
do MARCUS: 1 , 2, 3, 4, 5 ou 6 

computador fornecerf o valor da 
carga distribuida sobre as vigas RX1, 
RX2, RY1 e RY2 em quilograma-for- 
ca por metro. Atencao: em casos de 



vaos apoio-engaste. ou seja, apoio de 
um lado e engaste de outro, RX1 e 
RY1 serao sempre a carga do lado do 
apoio (ver esquema de distribuicao na 
figura 3). 

Finalizando, o quarto e ultimo sub- 
programa (ARM ADURA( A)) calcula a 
armadura necessaria para combater o 
momento existente na laje. Pressionan- 
do (A), o programa indicard: 



ACOB 
FCK = 150 



FYK = 5000 



DESEJA MUDAR AS CONDICOES 
INK:iAIS:(S)OU(N) 

Isto significa o seguinte: existem 
condi^Oes preestabelecidas, condicOes 
estas que sao : FCK = 1 50 quilogramas- 
forca por centi'metro quadrado e aco 
CA-50B. Se as condi^Oes de sua laje 
forem as mesmas, pressione (N) e 
prossiga; caso contrario, pressione (S) 



Figura 2 
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Laje/BAS 








i REMaAJE/BAS" 






2 CLS 






3 CLEAR 






5 PRINT30,"«« MOHENTO (M) r CORRECAO (C), CARGA (G) 


ou ARMA0URA (A) ***" 


10 LETWS-INKEYI 






ii IFWS=""THENG0T0iO 






13 IFM="A"Th , ENG0T0i320 






14 CLS 






25 LETV=.i5 






30 PRINT3256/' 


";3256,"9="; 




35 INPUTQ 






38 PRINT9640," 


II II II H 

1 t 


"•3768," 


"•9800," 






40 PRINT3276," 


";3276,"LX="; 




45 INPUTX 






50 PRINT32v6," 


"•3296,"Ly= // ; 




55 IMPUTY 






65 IFWI="G"THENG0T0300 






70 PRINT9384," 


* J 3384, J 'H/Xl»'j 




75 INPUTA 






80 PRINT3416," 


";34i6,"i2/X2= w - 




85 INPUTB 






90 PRINT3512," 


// ;35i2,"jl/Yl= // ; 




95 IMPUTC 


« 




100 PRINT3544," 


W ;3544 r w j2/Y2="; 




105 INPUTD 






ii5 LETK=(X/Y>62 






120 LETE=X-V*X 






125 LETF=Y-V«X 






130 LETN=2*<F+K*E) 






135 LETM0=«*X62/(12»N/(3*Y-X)) 




i40 IF«S=*CTHENG0T0165 






145 LETA=A#H0 







£ 
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RY2 




_j 






C\J 






X 




X 


>» 




oc 


RYI 


cr 


_i 




\ 


Lx 















Figura 3 

e entre com os respectivos dados da 
sua laje. Logo em seguida, o progra- 

ma pedira: 

• d = ? - altura litil da laje em me- 
tros 

• M = ? — momento em metro quilo- 
grama-forca por metro 

Aparecerf na tela o valor de AS, a 
drea da secao de ferro em centimetros 
e, ao lado, o seguinte : 

# 5,0 - C... # 4,0 - C... 

# 63 -C... # 5,0 -C... 



# 10 -C... 
#12 -C... 



#< 63 - C... 
#10 -C... 



A esquerda, as bitolas com os res- 
pectivos espacamentos necessarios para 
atender o seu AS, para os acos CA-24, 
CA-25, CA-32, CA-40 ou CA-50. A di- 
.reita, o mesmo para os acos CA-60. 
Esclarecendo: se seu aco for CA-24, 
CA-25, CA-32, CA-40 ou CA-50, serf 
impressa no video a tabela da esquer- 
da; se for o CA-60, serf impressa a ta- 
bela da dire it a. Caso a altura impost a 
nao suporte o momento, sera impressa 
a mensagem: ***ALTURA INSUFI- 
CIENTE ***. £ nao esque?a: apos ca- 
da entrada de dados pressione ENTER. 

Nota : Este programa foi elaborado 
a partir das teorias dos professores 
Aderson Moreira da Rocha e Adolpho 
Polillo. 



Osvaldo Scorcio Pereira 4 engenheiro civil 
autdnomo, trabalha com ca'lculo estrutural 
ha" quatro anos e atualmente presta servicos 
pan a Forma Engenharia Ltda., no Rio de 
Janeiro. 



150 LETB=B*H0 
155 LETOC*K*M0 
160 LETD=D*K*n"0 

165 LETMX=M0-(((A+B.W(OD)*X)/N) 
175 IFW5="C"THENG0T0185 

180 PRINTa640,"Xi=";INT(A+.5),'T(2= / ';INT(B+.5),''Yi=";INT(C*.5),"Y2=' 
INK0+.5) 

185 PRINT3768 r "Mx=";lNT(HX*.5);8800/Hy= / '-INT(K#HX+.5) 

190 G0T025 

200 LETKY=1/(2*L) 

205 LETKX=i-KY 

210 G0SUB1240 

215 G0T01280 

300 PRINT3384/CAS0:"; 

305 INPUTN 

320 LETL=Y/X 

325 ONNGOT020G, 400, 600,800, 1000, 1200 

400 IFL<=.8THENG0T0425 

405 LETKY=i/(2.5*L) 

410 LETKX=i-KY 

415 G0SUB126Q 

420 G0T01280 

425 LETKX=.625*L 

430 LETKY=i-KX 

435 G0T0415 

600 LETKY=i/(2*L) 

605 LETKX=i-KY 

610 G0SU81260 

615 G0T013O0 

800 IFL<=.667THENG0T0820 

805 LETKY=i/(3*L) 

810 G0TC205 

820 LETKX=.75#L 

825 LETKYM-KX 

830 G0T0210 

1000 IFL<=.833THENG0T01025 

1005 LETKY=i/(2.4*L) 

1Q10 LETKX=i-KY 

1015 GOSUB1240 

1020 GOT01300 

1025 LETKX=.6*L 

1030 LETKY=i-KX 

1040 G0T01015 

1200 G0T0200- 

1240 PRINT3640/ , RXl=";INT(KX#««X/2+.5)/RX2=";INT(KX#S#X/2+.5), 
1250 RETURN 

i260PRINT3640,' / RXi=";INT(KX««*X«.4+.5)/ , RX2='';INT(KX«e«X».6+.5), 
1270 RETURN 

1280 PRINT"RYl=".INT(KY*«*Y/2+.5)/RY2=";INT(KY*a«Y/2+.5) 
1290 G0T025 

1300 PRINT"RYl=";IHT(KY*e«Y#.4+.5) f "RY2='';INT(KY*«tY*.6+.5) 
1310 G0T025 

1320 as 
1325 l:tai="B" 

1330 LETFCK=150 
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1340 LETFYK=5000 
1345 PRINT30," 



";364/ 



";396, 



";3256,"d ="; 

";3384,"H="; 

";3424 r " 
"-3808, 7 



1350 PRINT30,"AC0 B";364/FCK=150";396/FYI(=5000";3i28,"DESEJA HUDAR AS 

C0NDIC0ES INICIAIS:' <S) ou <N>-" 
1360 LETBI=INKEY1 
1370 IFBi^^THENGO TO i 360 
1378 PRINT3448," 
1380 PRINT3128," 
1390 IFBI="rTHENGOT01480 
1400 PRINT30," ";364," ";396," 
1410 PRINT30,"AC0 A ou ACO B:"; 
1420 INPUTA1 
1430 PRINT364/TCK="; 
1440 INPUTFCK 
1450 PRINT396,"FYK="; 
1460 INPUTFYK 
1480 l_ETFCD=FCK« 10000/1. 4 
1490 LETFYD=FYK/i.l5 
1500 PRINT3256," 
1510 INPUTD 
1530 PRINT3384," 
1550 INPUTM 
1570 PRINT34Q4," ";3424 f " ";3552," 

";3680," 
1580 LETMD=H*1.4 
1590 LETMI=MD/(D52*FCD) 
1600 LETEY0=FYD/2100+2 
1610 IFAl="A"THENLETEYD=FYD/2iOQ 
1620 LETML=(2.38/(3.5*EYD))*(i-1.4/(3.5+EYD)) 
1630 IFMDHLTHENG0T01730 
1640 LETZ=1-. 2M2.5-S«R(6. 25-14. 706*MD) 
1650 LETAS=MD/(Z*D*FYD) 
1660 PRINT3404,"AS=";(INT<AS*100+.5))/100 
1665 IFFYD)5000THENG0T017QO 
1670 LETK0=(INT((18/AS)*10*.5))/10 
1675 LETUO=(INT<(32/AS)*10+.5))/10 
1680 LETY0=(INT((7i/AS)*i0+.5))/i0 
1685 LETZ0=(INT((127/AS)*i0+.5))/10 
1690 PRINT3424/1»5,Q-C.";K0;3552/1l6,3-C.";y0;3680 r "*i0 

-C.*;Y0;3808,"lli2 -C.";ZO 
1695 60T01530 

1700 LETKO=(INT((12.6/AS)«10+.5))/10 
1705 LETU0=(INT<<i8/AS)*10+.5))/10 
1710 LETY0=(INT((32/AS)*10+.5))/i0 
1715 LETZ0=(INT((71/AS)*10+.5))/10 
1720 PRINT3424/«4 f O-C.";K0.3552,"*5,0-C.".WG;368Q, 

"«6,3-C.";Y0;3808/"«10 -C.";ZO 

1725 GOT01530 

1730 PRINT3448,""* ALTURA INSUFICIENTE ***" 

1740 RUN1325 

PROGRAM ELA80RA00 POR: 
OSVALDO SCORCIO PEREIRA 
Enaenheiro Civil - CREA: 51.593-* 
DIREITOS AUTORAIS RESERVADOS 



1750 REM" 
1760 REM" 
1770 REM" 
1780 REM" 
1790 END 
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Este programa permite utilizar o Processo de Marcus na HP -41 C para 
o ca'lculo de valores ligados a area de Engenharia Civil 



Lajes armadas em cruz 



Celso de Arruda Albuquerque 



Este programa visa ao cdlculo de 
lajes armadas em cruz pelo Pro- 
cesso de Marcus nas calculadoras 
HP-41C, fornecendo os momen- 
tos rndximos positives nas duas direcOes 
(Mx e My), os momentos negativos mi- 
ximos nas duas direcCes (Ny e Nx) e as 
reacoes de apoio em cada bordo (Rx, , 
Rx 2 » Ryi e Ky 2 ). A configuracao mini- 
ma exigida e de um m6dulo de memo- 
riaeSIZE^ 19. 

programa exibe as unidades a se- 
re m utilizadas (kgf e m) e exige o co- 
nhecimento mihimo da Convencdo de 
Marcus, ou seja: Lx = direcfo cortada 
pelo maior numero de engastes ou me- 
nor vao (quando o numero de engastes 
for o mesmo nas duas direco'es). Os ca- 
sos de engastamento vao de 1 a 6. 

A entrada de dados n3o oferece difi- 
culdade, pois o programa pede somente 
quatro (Ly, Lx, P e CASO), os quais se- 
rfo introduzidos quando solicitados. A 
cada dado introduzido, deve ser pressio- 
nada a tecla R/S. Quando a maquina 
emitir o sinal sonoro, estara" pronta para 
apresentar os resultados nas seguintes 
sub-rotinas diretas: 

• Mx - tecla A 

• My- tecla B 



Caso 1 



Caso 4 



Caso 2 

IIII II 1 1 1 II- 

t i n n il h i" 
Caso 5 



hi 1 1 ii 1 1 1 1 1 1 
Caso 3 
in j 1 1 1 1 11 



c 

Cai 



TTTTT 

a so 6 



i 



Figura 1 

• Nx- tecla C 

• Ny- tecla D 

• Rx. e Rx 2 - tecla F 

• Ry. e Ry 2 - tecla G 

Quando pressionadas as teclasF ouG, 
aparecera" no visor Rxt (F)ouRyi (G). 
Para obter Rx 2 ou Ry 2 , basta teclar R/S. 

Querendo a edicao dos dados intro- 
duzidos, aperte a tecla E. Se verificar 
que houve erro na i nt roducao, utilize a 
tecla amarela (SHIFT) e a tecla A que o 
programa pedira* uma nova introducao 
de dados. 

Na figura 1, temos os seis possiveis 
casos de engastamento e, na figura 2, 
dois exemplos de cJflculo, a partir dos 
casos 1 e 2. Observe que, no exemplo 2, 
Lx = 6,0m porque e" cortado por um en- 
gaste, enquanto que Ly = 4,0m nffo 6 
cortado. 

Um ultimo detalhe : antes de iniciar a 
execucao do programa, assegure-se de 



Ly 



P - 500 



Caao I 



ii- 



4,0 



r - wo *«.!/« 

Ly - 6,0 ■ 
Lx - 4,0 ■ 



- 576,8 Kgf "/■ 
- 8m - 835 ((</■ 



My - 254,3 8»f "/■ 

ly. - By, - 247,4 K|<7- 



Apart* a tacla aaarala (Shift) a a tacla A para 
rccoa»(ar o prograaM. 



L' - *-0 , 



r - 500 



II- 



4,0 



Nx - 272,5 »jf "/■ 
■x - 743,8 I«f /■ 
8m, ■ 396,7 Igf/B 

ly, - By, - 649,4 t*f/a 



P - 500 M'/" 
Ly - 4,0 ■ 

i •■ 

Caao 2 

My - 503,4 Bff "/a 
8a, • 595,0 8«f7« 



Figura 2 

nao haver assignado qualquer funcao ou 
programa nas sub-rotinas utilizadas, pois 
o assignamento do usuario tern priori- 
dade sobre o programa em execucao. 



Celso de Arruda Albuquerque 4 formado em 
Engenharia Civil pela Universidade Game Fi- 
I ho e trabalha na BRASCEP Engenharia Ltda. 
desde marco de 1981 na Area de projeto e ca'l- 
culo. Potsui uma HP-41CV, a quel utilize so- 
mente para o calculo de problemat relaciona- 
dos i sua profissSo. 



l.«t0L "HQRCUS* 
82 "UHITsKG'*" 
93 GVIEH 
84 PSE 
95*181 a 
06 9 

87 ?70 85 

88 STO 89 

89 CF 81 
18 CF 83 

11 -LY=?" 

12 PROHPT 

13 STO 17 



!4 "IX=> 
13 PROMPT 
16 STO 88 

is m 

19 5 

?e m 

21 STO 

22 •?=->• 

23 PROMPT 

24 STC 83 

25 -CfiS0? 



81 



II 



26 PROMPT 

27 STO 84 

28 GTO INS 8< 
29*LBL 81 

38 8 

31 STO 86 

32 STO 87 

33 GTO 14 
34*LBL 82 

35 14,22 

36 STO 86 

37 8 



Marcus 



38 STC 87 

39 STO 88 
48 SF 81 

RCL 18 

5 

* 

44 ENTEPt 

45 EHTERt 

46 2 



41 
42 
43 



47 ♦ 

48 / 

49 STO 82 
58 GTO 12 
51HBL 83 

52 14,22 

53 STO 86 

54 STO 87 

55 8 



56 STO 88 

57 STO 89 

58 SF 81 

59 SF 83 
68 GTO 14 
6ULBL 84 

62 24 

63 STO 86 

64 8 

65 STO 87 
66-12 

67 STO 8$ 



68 RCL If 


69 5 


78 • 


71 EHTERt 


71 EHTERt 


73 1 


74 * 


75 / 


76 STO 82 


77 GTO 12 


78*LBL 85 


79 24 



H ?T0 86 
81 14,22 
62 STO- 87 



94 

85 



-:to 88 

3 

86 STO 89 
8: SF 83 
88 PCL 19 

* 

EHTERt 



98 
91 
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191 
18? 
183 



53 ! 

94 t 

95 / 

9* STO 82 
97 GTO 12 
96>LPL 96 
9^ 24 
m STO 66 
■ 
12 

9^0 88 
184 STG 89 
185*LBL 14 

186 RCL 

187 PCl 

188 1 

189 ♦ 
118 / 

111 STO 0? 
112*LBL 12 

113 XEQ 88 

114 XEQ 09 

115 XEQ 10 

116 XEQ 11 

117 RCL 03 

118 RCL 00 



18 
18 



111 Xt2- 
126 * 

121 STO 15 

122 RCl 83 

123 PCL 02 

124 * 

125 RCL 00 

126 • 

127 STO 16 

128 RCL 03 

129 RCL 02 
138 * 

13! CHS 

132 RCl 03 

133 + 

134 RCL 17 

135 * 

136 STO 18 

137 SF 27 

138 8 

139 EHG 3 
148 TONE 8 
141 STOP 
142*LBL A 

143 RCL 15 

144 RCL 11 

145 / 



146 1K«' 

147 flRCL X 

148 flVIFH 

149 STOP 
158HBL B 

151 RCL 15 

152 PCl \Z 
155 / 

154 "HY=- 

155 flRCL Y, 

156 puiEH 

157 STOP 
158*LBL C 
159 SF 25 
168 PCL 15 

161 RCL 13 

162 / 

163 CHS 

164 "NX=" 

165 flRCL X 

166 flVIEM 

167 CF 25 

168 STOP 
169*LBL D 
178 SF 25 

171 RCL 15 

172 RCL 14 



173 / 

174 CHS 

175 "NY=- 

176 flRCL X 

177 flVIEH 

178 CF 25 

179 STOP 
188HBL E 

181 "LY=- 

182 flRCL 17 

183 flVIEH 

184 PSE 

185 -LX=- 

186 QRCL 88 

187 flVIFH 

188 PSE 

189 -P=- 
198 flRCL 83 

191 AVIEH 

192 PSE 

193 -CflSO " 

194 flRCL 8' 

195 flVIEH 

196 STOP 
197HBLT 

198 FS? 81 

199 GTO 15 



280 5 

281 STO 85 

282 GTO 16 
283*LBL 15 

284 ,6 

285 STO 85 
266 ,4 
2874LBL' 16 

288 PCL 16 

289 * 

218 "RX1=- 

211 flRCL X 

212 flVIEk 

213 STOP 

214 RCL 16 

215 RCL 85 

216 * 

217 "RX2=- 

218 flRCL X 

219 flVIEH 
228 STOP 
22ULBL G 

222 FS? 83 

223 GTO 17 

224 ,5 

225 STO 85 

226 GTO 18 



227»LBL 17 

228 6 

229 STO 85 
238 ,4 
231HBL 18 

232 RCL 18 

233 * 

234 -RYl^" 

235 flRCL X 

236 flVIEH 

237 STOP 

238 RCL 18 

239 RCL 05 

240 * 

241 -RY2=" 

242 flRCL X 

243 flVIEH 

244 STOP 
245HBL 08 

246 RCL 8t 

247 RCL 82 
243 26 
249 * 

258 3 

251 t 

252 PCL 

253 / 



86 



254 RCL 81 
255/ 

256 CHS 

257 1 

258 ♦ 

259 RCL 82 
268 * 

261 / 

262 STO 11 

263 RTN 
264*LBL 89 

265 RCL 87 

266 RCL 82 

267 CHS 

268 1 

269 ♦ 
278 28 
271 * 

27? RCL ei 

273 * 

274 3 

275 / 

276 RCL 87 

277 / 

278 CHS 

279 I 
288 ♦ 



281 PCL 82 

282 CHS 

283 1 

284 ♦ 

285 * 

286 RCL 61 

287 * 

288 / 

289 STO 12 
298 RTN 
29ULBL 18 

292 RCL 68 

293 RCL 82 

294 / 

295 STO 13 

296 RTN 
297*LBL 11 

298 RCL 89 

299 RCL 82 
388 CHS 

381 1 

382 * 

383 / 

384 RCL 81 

385 / 

386 STO 14 

387 END u 

m 



A Nasajon Sistemas lanca urn novo conceito 
para agilizar a sua empresa : 



A PRESSA t AMIGA DA PER FEIC AO. 

A Nasajon Sistemas esta lancando no mercado uma se>ie de programas especi'ficos que podem dinamizar 

ainda mais as diversas a>eas de sua empresa. 
Sao mais de 50 programas diferentes para DGT 1000, 
CP 500, D 8002, TRS 80, NAJA, JR e outros. 
Com os programas da Nasajon Sistemas voce vera porque a 
pressa 6" amiga da perfeicao. 

Nasajon Sistemas: 

Urn jeito fdcil de resolver os problemas de seu computador. 

• Desenvolvemos qualquer tipo de software de acordo 
com as necessidades de sua empresa. ^M 

• Antes de comprar seu computador solicite 



PREQO ESPECIAL DE LANCAMENTO 


Program ■ 


Pka(CrS) 


Dnkette<Cr$) 


Contabilidade 


40.000.00 


239.000,00 


Controle de Estoque 


64.000,00 


188.000,00 


Mala Direta 


47.000.00 


109.000,00 


Mala Direta c/ Ed. Texto 


— 


194.000,00 


Comas a pagar/receber 


47.000.00 


116.000,00 


Tesouraria (C Saldo bancirio) 


— 


116.000.00 


Crediario (p/ D 8002) 


- 


129.000.00 


Admin, de Imoveis 


— 


430.000.00 


Editor de Texto 


36.000,00 


— 


Arquivo de Processos 


24.000.00 


— 


Controle de Livros 


19.000,00 


— 


Controle de Cheques 


19.000.00 


- 


Biorritimo 


16.000,00 


26.000.00 


Decisao 


17.000.00 


27.000,00 


Obstaculo 


17.000,00 


27.000.00 


Kit Matematic. c/6 progr. 


62.000,00 


72.000,00 


Jogos Americ (Fita c/4) 


25.000,00 


35.000,00 



nossa assessoria, sem compromisso, 
para ana'lise, implantacao e apoio. 
Descontos para revenda. 
Atendimento por reembolso 
para todo Brasil. 



A* 



■l<ft 



**>' 



<$ 



** 






Voci tambem encontra esses programas 
em nossos revendedores credenciados. 



flno/ojoA 



Av. Rio Branco. 45 gr. 1311 CEP 20090 
Tel. (021) 263.1241 - Rio de Janeiro 



0* 10 0111 0100 


0000 


MOO 


111 1 




4|oo 


1000 0010 






tfOOO 


noo 

1000 
0101 


lOU^r^ 






0111 


OlWf 






11111 

loooo 


i ■ 1 BcnF 
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Curso de 
Assembler - XIII 



D 



ando seqiiencia a ultima li9ao, vamos discutir as ou- 
tras alternativas que o microprocessador Z80 nos oferece para 
desviarmos o fluxo de urn programa. Espero que as instru9Ses 
de JUMP descntas na licao anterior tenham sido compreendi- 
das perfeitamente, pois este capitulo e" essencial para a elabo- 
racao de qualquer programa em Assembler. Vamos entao co- 
nhecer as instru96es reservadas para esta I19S0. 
3 - Desvio Relativo biconditional 
Format o: JR e 

Operacao: Efetua um desvio do fluxo de processamento para a 
posicao de mem6na dada pelo conteudo do Program Counter 
(PC) acrescido do operando e exph'cito na instrucao. na forma 
de compolemento de 2. 



PC+e 



U 



deslocamento 



•^Program Counter 



Codigo Objeto: 



JR 



1 1 1 1 1 1 — r— 

110 



-»— t- 



■+— *- 



Exemplo: 



JR 05H 



I I I I I I ! 

1 10 

■+-H h 



10 1 



>18 
>05 



Descricdo: Esta instrucao executa um desvio incondicional 
para outro segmento do programa. O valor do deslocamento e 
e" somado ao Program Counter (PC) e a prbxima instru9So 
executada pelo microprocessador se encontra na nova posiclo 
de mem6ria apontada pelo PC. Esta instrucSo de desvio pode 
ser feita em um intervalo de -126 a +129 bytes. O micropro- 



cessador ajusta automaticamente o conteudo do PC. A grande 
utilidade desta instrucao 6 para o desenvolvimento de progra- 
mas relociveis, isto 6, programas que podem ser executados 
em qualquer local de memoria, visto que os desvios sao rela- 
tivos a uma posiclo base. 
Cicbs de mdquina (M): 3 
States (T). 12(4,3, 5) 
Flags afetadas: Nenhuma 
Exemplo: 

OOIOO J TESTE DA INSTRUCAO DE DESVIO RELATIVO 



1000 


OOllO 




ORG 


lOOOH 


lOOO 1803 


00120 


DESV1 


JR 


DESV2 


1002 3E04 


00130 




LD 


A, 04 


1004 AF 


00140 




XOR 


A 


1O05 1BF9 


00150 


DESV2 


JR 


DESV1 


OOOO 


00160 




END 




OOOOO TOTAL 


fcRRORS 









34940 TEXT AREA BYTES LEFT 

Como podemos observar no exemplo acima, quando dese- 
jamos realizar um desvio positive indicamos o numero de by- 
tes que queremos sal tar. sem contar os bytes da instrucao JR. 
Para o desvio negative indicamos o numero de bytes que dese- 
jamos saltar na forma de complemento de 2, considerando a 
instruca"o JR e os bytes da instrucao que desejamos executar 
apos o desvio. 

Bytes a saltar. 07H+0000 0111 
Complemento de 1 : F8H -* 1 1 1 1 1000 
Complemento de 2 F9H -> 1 1 1 1 1 00 1 
4 - Desvio Relativo Conditional 
Formato: JR cc, e 

Operacdo: Efetua um desvio do fluxo de processamento para a 
posi9ao de mem6ria dada pelo PC, acrescido do operando e 
expresso na forma de complemento de 2, somente se a condi- 
9I0 cc for verdadeira. Caso contririo, ignora a instrucao e con- 
tinua no fluxo normal do programa. 
Codigo Objeto: 

JR cc, e 



o'o 


CC 


1 

cc 


1 — 
cc 


■ — 



r - * — 1 



«r- 


1 


- e 






w 






r 
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onde cc identifica a condi£ao da flag a ser tratada. Se a 
condi^ao for verdadeira, ou seja se a flag estiver na condi- 
cao desejada. o desvio 6 realizado. 

100 para cc = flag NZ (Z=0) 

101 para cc = flag Z (Z=1) 

110 para cc = flag NC (C=0) 

111 para cc = flag C (C=1) 

Como podemos observar, a instruc36 JR so nos permite tes- 
tar as condicOes das flags Zero e Carry. 
Exemplo: 



JR NZ,05H 



■ > i i i i — i — 
10 

— I t—i 1 I | h- 

10 1 

■'■'■■ ' 



>20 



>05 



Descricdo: Esta instrucao executa um desvio condicional para 
outro segmento do programa, isto e\ o desvio s6 € reahzado se 
a condicao flag testada for verdadeira. valor do deslocamen- 
to e € somado ao PC, e a prbxima instrucSo executada pelo 
rrucroprocessador se encontra na posicSo de mem6ria apontada 
pelo PC. niimero de bytes que podem ser somados ao PC en- 
contra-se no intervalo de -126 a + 129 bytes. O microproces- 
sador ajusta automaticamente o conteudo do PC durante a 
execucao da instrucao JR. Se a flag testada nao estiver na con- 
di5So desejada, a instrucao € ignorada pelo rrucroprocessador e 
a execucao do programa contmua normalmente. 





Ciclas de maquina (M) 


States (T) 


Se a oandigao 
far verdadeira 

Se a onndicao 
far falsa 


3 
2 


12(4,3,5) 
7(4,3) 



Flags afetadas: Nenhuma 
Exemplo: 



. ooo 

1000 B7 

1001 2830 
1003 3860 
10OS C30Q40 
OOOO 



OOIOO I TESTE DA INSTRUCAO "JR" CONDICIONAL 



OO110 
OOI20 
00130 

0O140 
00130 
0O160 



OOOOO TOTAL ERRORS 
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ORB 

OR 

JR 

JR 

JP 

END 



iOOON 

A IPOSICIONA AS FLAGS 

Z,«*S2H I TESTA SE Z-l 

r.«*62H I TESTA SE C-l 

4O0OH ISENAO CONTINUA EXECUCAO 



Como podemos observar, quando utilizamos um montador 
Assembler devemos considerar tambdm os bytes utilizados 
pela instrucao JR, pois o montador na descontar os dois bytes 
da instrucao. 

5 - Desvio Indexado por HL 
Formato: JP (HL) 

Operacao: Desvia o fluxo do processamento para o endere90 
contido no par de registradores HL. 
Codigo Objeto: 

JP (HL) 



— i — i — i — i — i — i — i — 
1110 10 1 

III II II 



Descricdo: Program Counter (PC) € carregado com o conteu- 
do do par de registradores HL de 16 bits. A pr6xima instrucao 
executada pelo microprocessador se encontra no endereco 

» 
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®@ 




distribuidor autorizado 




SUPRIMENTOS P/ PROCESSAMENTO DE DADOS 



• FITASMAGNfiTICAS 

• DISCOS magnEticos 

• DISKETES (8 e 5 1/4) ORIGINAIS 

• FIT AS IMPRESSORAS ORIGINAIS B8BB8 

• FIT AS IMPRESSORAS NACIONAIS E IMPORT. 

• DATA CARTRIDGE 

• ACESSORIOS ( ETIQUETAS, TAPE SEEL, 
WRAP AROUND, CARRETfilS, REFLETIVOS) 

• FORMULARIOS CONTlMJOS 

CPD - COMgRCIO E REPRESENTAQOES LTDA 

SioPauk) 

Rua Ministro Gabriel de Resende Passos, 382 - CEP 04.521 

Fones: (Oil) 571-0688/571-3440/572-1811 
Rio de Janeiro 

Rua Tenente Vilas Boas, 21 - CEP 20.260 Fone: (021) 284.1938 
Joinville - Santa Catarina 

Rua Aracua, 98 - CEP 89.200 
Baixada Santista 

Av. Dr. Adhemar de Barros, 2034 - CEP 1 1.400 

Fone: (0132) 86-2589 
Belo Horizonte - Minas Gerais 

Rua Jaguara, 22/A - CEP 30.000 Fone: (031) 444.4905 

Bairro Renascenca 
Brasilia - Distrito Federal 

Conj. Nacional Brasilia 6? andar - s/6075- CEP 70.000 

Fones: (061) 225-6988/223-6785 
Olinda - Pernambuco 

Av. Mario Melo, 86 Loja 4 - CEP 50.000 Fone: (081) 221-0588 
Londrina - Parana 

Rua Quintino Bocaiiiva, 666 - 2? andax - s/ 201 /A -CEP 86.100 

Fone: (0432) 22-4858 
Porto Alegre - Rio Grande do Sul 

Rua General Caldwell, 1329 - CEP 90.000 Fone: (0512) 23-1132 

Uniao de recursos e talentos a servico 
de sua empresa. 



CURSO DE ASSEMBLER - XIII 



contido em HL, que, ap6s a instrucao JP (HL), tambdm estaia" 
contido no PC. 

PC*- (HL) 

Gclos de mdquina (M): 1 

States (T): 4 

Flags afetadas: Nenhuma 

Exemplo: 







00100 


ITEBTI 








001 10 






ORG 


9200H 




S200 


87 








AOD 


A.A 


|A • A • 2 




2IOD32 


00130 






LD 


HL, TABLE 


IML - ENDERECO DA TABCLA 




1600 


00140 






LD 


0,0 


ID - 


3206 


3F 


00190 






LO 


E.A 


IE - A • 2 


320 > 


19 


00160 






ADO 


HL.DE 


IHL - ENDERECO NA TABELA 


sroa 


SE 


00170 






LO 


E, <HL) 


IE • LSB DO ENDERECO 






ooieo 






INC 


HL 


IML - PROXIMO BVTE 


320A 


36 


0019O 






LD 


D, (ML> 


ID - MSB DO ENDERECO 


320B 


EB 


ooaoi 






EI 


DE.HL 


IHL - ENDERECO DO DESVIO 


320C 


CI 


OO210 






JP 


<ML> 


IDESVIA PARA ENDERECO 


9200 


0000 


00220 


TABLE 


DEFN 


OOOOH I 


ENTRADA - TABLE ♦ A • 2 (A-0) 


320F 


3300 


O0230 






DEFW 


0O33H 


ENTRADA - TABLE ♦ A • 2 <A-1> 


3211 


490© 


0O240 






DEFH 


0O49H l 


ENTRADA - TABLE ♦ A • 2 (A"2> 


32 IS A72B 


00230 






DEFM 


28A7H | 


ENTRADA - TABLE » A • 2 (A-3) 


0000 




903*0 






END 






OOOOO TOTAL 


BMQM 
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LEFT 









Neste exemplo, podemos observar como utilizai a instrucao 
JP (HL) para efetuar desvios contidos em uma tabela de 
JUMPS. Para utilizai esta rotina, colocamos no acumulador a 
opcao desejada no intervalo entre e 3. A rotina calcula o 
endereco, multiplicando o conteudo de A por 2 que, somado 
ao conteudo de HL (que cont£m o ponto de entrada da tabe- 
la), determina o ponto de entrada na tabela que contdm o 
endereco para o JUMP. Se A= 2, vamos obter o segumte resul- 
tado:HL=520DH + 4 -5211H. 

Este endereco na tabela contdm o endereco desejado para o 
JUMP no caso da opcao A = 2. 
6 - Desvio Indexado por IX/IY 
Formato JP(IX) 
JP (IY) 
Operacdo: Desvia o fluxo do processamento para o endereco 
contido nos registradores indexadores IX ou IY. 
Codigo Objeto: 



JP (IR) 



1 — 1 — 1 1 1 1 1 1 — 1 
1 1 IR 1 1 1 1 


111 10 1 

— i — i 1 — i. _i — i — i — 



onde IR identifica os registradores indexadores IX, IY, monta- 

dos a partir da segumte tabela: 

para registrador IX - 1 para registrador IY 

Exemplo: 



JP (IX) 



— I— i — l — r— r— i — r— 

110 1110 1 

I I I t I I I 
1110 10 1 

'■■'*'■ 



DD 
E9 



Descricdo: Program Counter (PC) e" carregado com o conteu- 
do dos pares de registradores IX ou IY. A pr6xima mstrucSo 
executada pelo microprocessador encontra-se no endereco de 
mem6na contido no par de registradores indexados IX ou IY. 

PC «■ (IX) 

PC«-(IY) 

Gclos de mdquina (M): 2 

States (T): 8(4, 4) 

Flags afetadas: Nenhuma 

Exemplo: Se o conteudo do PC e" 1000H e o conteudo do par 

de registradores IX 6 4800 H, apos a execucao da instrucao 

JP (IX), o conteudo do PC ser* 4800 H. 



7 - Decrementa e salta se diferente de zero 

Formato: DJNZ e 

Operacdo: Decrementa o conteudo do registrador B e, se o seu 

conteudo tor diferente de zero, efetua um desvio relative 

Codigo Objeto: 

DJNZ e 



10 

— H 1 r— I 1 1 1— 



i i i i 



Exemplo: 



DJNZ $ - 10 H 



I'll — i i i 
10 
— 1 — I — I — I — I — r— r— 
1110 1110 

■ ..111 




Descricdo: Esta instrucao e" similar a um desvio relativo condi- 
cional, exceto que o conteudo do registrador B determina o 
desvio. registrador B 6 decrementado e, se o seu conteudo 6 
diferente de zero, o operando e, na forma de complemento de 
2, 6 somado ao Program Counter (PC). desvio deve estar no 
intervalo de -126 a +129 bytes. microprocessador atualiza 
automaticamente o PC. Se o conteudo do registrador B 6 zero, 
apos ser decrementado, a instrucao seguinte ao DJNZ serf exe- 
cutada. Esta instrucao se assemelha ao laco FOR-NEXT da lin- 
guagem BASIC. As instrucSes abaixo podem substituir um 
DJNZ. 

DEC B 

JR NZ,e 



Ciclos de Maquina (M) States (T) 



SeB/0 
Se B = 



13(5,3,5) 
8(5,3) 



Flags afetadas: Nenhuma 

Exemplo: A rotina abaixo transfere 128 bytes de um buffer de 
entrada para um buffer de trabalho. Esta rotina transfere os 
1 28 bytes ou ate" encontrar um Carriage Return (Enter). 







00100 


1 TESTE 


DA INSTRUCAO DJNZ 






00110 


BUFIN 


EOU 


OFOOOH 


F100 




00120 


BUFOUT 


EOU 


0F100M 


I00O 




00130 




QM 


lOOOH 


IO00 


06fl0 


0014O 




LO 


B.BOH 


1002 


2100FO 


00130 




LD 


HL.BUFIN 


1003 


MOOFl 


00160 




LO 


DE, BUFOUT 


iooe 


7E 


00170 


LOOP 


LD 


A, (HL) 


loot 


12 


00180 




LD 


(OE'.A 


100A 


FEOD 


0O19O 




CP" 


ODH 


iooe 


2004 


00200 




JR 


Z.FIM 


iooe 


23 


0O2IO 




INC 


ML 


lOOF 




0O22O 




INC 


DE 


1010 


I0F6 


00230 




DJNZ 


LOOP 


1012 


3AO040 


0O240 


FIM 


LD 


A, (40OOH) 


oooo 




00250 




END 




OOOOO TOTAL 


ERRORS 








■34384 


TEXT 


AREA BYTES LEFT 







I SETA CONTADOR 

IHL <- BUFEER DE ORIGEM 

IDE - BUFFER DE DESTINO 

|A <- (BUFIN) 

I (BUFOUT) <- A 

I TESTA SE A - ENTER' 

ISE A - OD ENTAO FIM 

I INCREMENTA (BUFIN) 

I INCREMENT A (BUFOUT* 

IREPETE 128 VEZES 

ICONTINUA EXECUCAO 



Neste ponto voces ja" conhecem um repert6rio de instru^es 
que permitem efetuar alguns programasem Assembler. Vamos 
entao criar os primeiros programas e enviar para a MICRO 
SISTEMAS. Terei prazer em analisaMos. ■ 



Amaury Correa de Almeida Moraes Junior 6 formado pelo curso de 
Analise de Sistemas de FASP, tendo feito diversos cursos de aperieigoa- 
men to nas Areas de Eletrdnica Digital e Microprocessadores, e atualmen- 
te trabalha na irea de microcomputadoret para City bank. 
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AdmMstrapio 



Veodas 



AKf-nria 



Phnej. 
Fkianceiro. 




Escolha o seu programa para boje. 



Porfalta de programas, 
dificilmente um Unitron ap II vaificar 
parado. E para voce ter uma idea do 
que ele pode fazer em sua casa, 
empresa on escritorio, vamos la: 
• redigir tcxtos • relatorios administra- 
1 1 w is • graficos coloridos • atualizar 
agendas • comas a pagarV receber • 
contabilidade • folhas dc pagamento* 
cadastrar clientcs c fornecedorcs • 

budgets" • administrar varcjo • mala 
direta • analisar investimemos • xadrez, 
e outros jogos inteligentcs •correio 
cletronico • banco dc dados • analisar 
pesquisas • estatistica • marketing dc 
negocios • teste de hipoteses • acessar 



redes de computadores • horoscope* c 
cartas astrologicas •controlar sistema de 
alarme • controlar tempos c metodos • 
programacao "basic" • esqucmatizar 
marketing direto • atualizar arquivos 
escolares (colegios,faculdades)« 
administrar escolas • aprender com 
computador (como usar o computador 
cm seu beneficio)* treinamento 
intensivo (vendedorcs, compradorcs) 
simular situacoes • jogos educacionais 
• administrar bens e propriedades • 
controlar linhas de producao* catalogar 
bibliotecas • imposto de renda (como 
preparar a declaracao) • sistematizar 
const rucoes e obras • estatisticas 



• calculos de engenharia estrutural • 
administrar consultorios • operar bolsa 
de valores* analisar diagnosticos medi- 
cos • arquivodc agenda de turismo • 
controlar transportadoras • gerenciar 
investimemos • inventarios • sistemas 
de amortiza^ao • arquivo de receitas 
culinarias • calculo do IPI, ICM e 
outros • administra(,ao domestica • 
fazer duas coisas ao mesmo tempo. 

Estas sdo algumas das aplicacoes que o 
Unitron ap II pode ter para voce. Mas, 
se voce quiser inventar mats alguma, 
pode ter certeza que ele topa. 



Unitron ap II topa qualquer urn. 



i 










Gostaria de receber maiores infbrmac,oes sobre os pro- 
gramas da area de: 

Nome: 

Empresa: Cargo: 

Endereco: 

Cidade: CEP: Tel: 

Unitron Eletr&nica - Caixa Postal 14. 127 (CEP 02779) 
Sao Paulo - SP - Telex (01 1 ) 32003 UEIC BR 



"S 



A 




m ^0 



loo Pouio -A^'0-J.l 280-0671 -CornpvShop-T.1. 2IM187-0>mcH#t.-T.I 852 8290 Compvl..lond T„ 23' 32'' Compviou. T.I 231 3922- Oolo Shop -T4 814 7018- Erkio- T.J 826 1499 tqu.po T.I 270 7566- Fotoloo-Tol V-2W 
_FK-T.I 270-06 I -i-no.*.- T.I «l-0Wt-*™o--I.I 8U-068f-Mopp.o- T^ 258-441 1 -M.croShop - T.I 282 21 05 -Now Co^oo- T.I 814-3663 -<5?T-T.I 280-2*66 - P.r»no M.cro Informed. T.I 2826440- P-ocdo- T.I 545 5491- 
%*J"S;?SS«\™/ 2 l2i£:^" T t *' 8U -° S ?r^Tl , ?,: I ^/ M j5. -*>•->' *'2W2-Tr,moq-T.I 259 2600 -Co«p««-Comp u ..,lond- T.I (0192131.8498-Comp-jno.u.- T.I (0192;323810 - fo.op.,ca- Trf (0197) 57-0744- ON- 
-W l0192;32-2786 *iWoo PiWo - Fotopf.co T »l 10166 636 0666 Monko Spro Compuwdorw - T.I (0144) 33-4109- tmAmt Coml Pon.no - T.I (01 >| 436-6820 - FortoUu - Comout.c - T.i (0851 23! 1 43.1 «*> «. JoooiM, - Alio- T.I IMI 
399-6330 -_6app»-T>; (0211253.3170-Compum.c-o- T.I (02!, 224-7007 - Compo.Hond-T.1 (021)551 8942-Comp u ., flu . - T.I .«; 2671093 - M.crollau.po ^ Wl2tt!jW-M.cX- W ;0^267-829l - ^^^75 $12226088- 

- T.J (04321 23-0065_- CompuShop^T.I (0432)23-7] J_C I -Jloafc : Microthop - Tol (08ll326-152S r NovoEro-T.I (081)325 3189- Of.cc.no -T.I |08l 



SH^T. T C .°T' C '? " T i!, (041) 224-5616- Compuhqu.- T.I [041)2431731 - Un o Vw o-Comicro- l.l |U4JV1 /JUU65-c.ompubhop- I.I (0432)Z3-7110-«oal»- MicrtMhoc-T.I (( 
8 -5»t«o«ot- Oficc.no -T«l (071) 248-6666 -S.tdoto-T.1 (071) 242 9394 - (olo HoruoM. - B.<« Shop- T.I (03!) 223-6947 -Compuoty- T.I 1031)226- 6336 - Compuiron.i - Y 

t- Advancing -T»l (0512)2o-1 194-Compumid.a- Til" (051^22-50«r"-ioii«*V-'Com,; 



Sup.rm.cro Sho- -T^ 10482' 44- 7864 - Iraaio - Computhow - T.I (06l|2732128-C«ob*-M.crodoio-T.r (0651321 1107- Porto/ 



031] 225-3305 - M,co»hop - T.I ;03l)222 7889 HorwaoooKi 
-TtJ. (04741337520 







En vie suas perguntas para MICRO 

SISTEMAS (Seoao MS 

RESPONDE); Rua Visconde 

Silva, 25, Botafogo, Rio de 

Janeiro-RJ, CEP 22281. 



Pergunta— Tenho um TK85com 48Kde 
RAM. Tudo corria bem, at6 que resol- 
vi escrever um prog ra ma um pouco 
maior. Durante a digitacao, fiz o se- 
guinte teste: 
(CLEAR NEW LINE) 
PRINT PEEK 16404+256 *PEEK 164 
05-16509 (NEW LINE) 
Assim, poderia evitar que a memdria se 
"esgotasse". Em determinado momen- 
to, o teste indicou 16200 bytes ocupa- 
dos e, presumo, seriam estes somen te 
os bytes gastos pelo programa e pelo 
display, ja que, antes do teste, ado- 
nei CLEAR. 

Fui inserindo mais algumas linhas 
no programa ate" que o computador 
"saiu do ar": algumas faixas comeca- 
ram a rodar pe/a tela da TV, e somente 
apds desligd-lo 6 que tudo vo/tou ao 
normal. 

Se eu nao der CLEAR antes do tes- 
te, de acordo com a dimensao que eu 
estabelecer, o resultado do teste pode 
chegar ate" 48 K. A parti r dai', o micro 
comeca a se comportar como esta" des- 
crito no capftulo 23 do manual 
("quando a memdria fica repleta") e 
nao 4 mais possi'vel inserir linhas, mas 
o programa nao 6 perdido. Basta dar 
um CLEAR, diminuir a dimensSo e, 
tudo bem, 6 sd continuar. 

Ja" escrevi a Microdigital pedindo es- 
clarecimentos e ate" agora nao recebi 
resposta. Por isso, resolvi recorrer a vo- 
ces. Minnas duvidas sao as seguintes: 
1—0 que esta" acontecendo com o 
meu TK85 com 48 K? 

2 — Por que nao consigo usar mais do 
que 16200 bytes no meu programa em 
BASIC? 

3 — Essa limitacio 6 real ou pode tra- 
tar-se de algum defeito no micro? 

4 — Se essa limitacio existe, qua! a 
vantagem em se possuir um micro com 
48 K "dispom'veis"? (Marcos A. Fer- 
reira da Silva, SP) 

MICRO SISTEMAS- Isso nao e defeito 
do seu equipamento. que acontece 6 
que a memoria do seu micro se organi- 
ze como mostra a Figura 1. E, qual- 
quer que seja a expansao, o maximo 
aproveitavel em seus programas ser2 48 
K. A utilizacao da RAM se inicia no 
endereco 16384 (leia o artigo "Peque- 
nas mem6rias, grandes economias", 



publicado em MS n9 22) e pode che- 
gar, no maximo, ao endereco 65536. 

O arquivo de imagens fica "passean- 
do" pela RAM na medida em que voce 
vai escrevendo seus programas, mas 
este nunca podera" estar com uma par- 
te antes do endereco 32768 e outra 
depois. Assim, quando voce ja" tiver 
usado aproximadamente 15 K, voce 
deve forcar o arquivo a ultrapassar essa 
barreira, criando uma linha que gaste 
bastante espaco (por exemplo: LET 
A= 1+1+1+1+1...) eedita*-la no modo 
FAST. 

Nao se esqueca de que o arquivo 
de imagens deve ultrapassar integral- 
mente o endereco 32768. E £ bom gra- 
var o programa antes de tentar isso, 
para evitar surpresas depois. 



64K< 



Figura 1 



8K S/5lem.i 


Operac 


onal 




8K Rese'va 










I6K RAM 










32K RAM 











48K 



Pergunta — Atrave's de um amigo, fi- 
quei sabendo que era possi'vel a utili- 
zacao das instrucdes READ e DATA 
no TK82-C, mas ate" hoje nSo consegui- 
mos introduzir estas instrucdes no mi- 
cro. Gostaria de saber se 4 possi'vel e 
como introduzir tais instrucdes. (Luiz 
Wellington de S. Monteiro, PE) 

MICRO SISTEMAS - As instrucoes 
READ e DATA nao sao possi'veis no 
TK82-C, pelo menos como instrucoes. 
£ possi'vel, no entanto, criar uma roti- 
na que simule estas instrucoes. Leia a 
materia intitulada "DATA, READ e 
RESTORE no TK", publicada em MS 
n° 25, edicao de outubro/83. 

Pergunta — Sou possuidor de um mi- 
cro NE-Z80, o "retardado" da fam/Va 
dos pessoais. Gostaria de saber o que 6 
possi'vel fazer para contornar, ou pelo 
menos atenuar, as irritantes limitacoes 
do modelo, quais sejam: a inexistSncia 
de casas decimals, baixfssimo limite de 
sobrecarga (overflow), nao reconheci- 
mento de diversas instrucoes vitais da 
lingua gem BASIC etc. Uma expansao 
resol veria? Pode um programa execu- 



tado no NE-Z80 ser transferido via fi- 
ta magnetica para outro micro, como o 
NE-Z8000 ou o TK82C? (Edgar San- 
tos Rocha, RJ) 

MICRO SISTEMAS - Nao, um progra- 
ma gravado pelo NE-Z80 nao pode ser 
transferido para o NE-Z8000 ou para o 
TK82-C. 

Quanto ao "retardado", nao se de- 
sespere, pois todo micro 6 retardado 
em algum aspecto. Se, por um lado, o 
NE-Z80 6 limitado em comandos e ins- 
trucoes, por outro ele 6 o mais r^pido 
de sua categoria, e o que gasta menos 
memdria com o armazenamento de 
programas. 

Para contornar a falta de certas ins- 
trucoes ser£ preciso lancar mao de cer- 
tas sub-rotinas. Por isso, maos a obra e 
ligue a sua criatividade, que todas as 
limitacoes do micro podem ser supera- 
das. 

Pergunta - Tenho um tiE-Z8000 que 

nao possui a funcao SLOW. Fiz o 

seguinte programa: 

10 POKE 16100,1 

20 PRINT "AAAAAAAAA " 

30 PAUSE 1000 

40 RUN 

Executando este programa, a tela fi- 
cou cheia. Depois apertei CONTe EN- 
TE R e, quando a tela ficou cheia, aper- 
tei ENTER. Apds alguns segundos de 
tela dnzenta, apareceram caracteres 
movendo-se em SLOW. Ha vdrios pro- 
gramas em que isto ocorre. Gostaria de 
saber por que isto ocorre, pois algu- 
mas vezes, muito raramente, os carac- 
teres nSo se movem. (Osvaldo Luiz 
Ayala Femandes, SP) 
MICRO SISTEMAS - Se o seu compu- 
tador tiver 1 ou 2 K de RAM, o que 
aconteceu e muito simples: estourou a 
memdria. Mas n3o se assuste, porque 
isto nao 6 grave, basta desligar o mi- 
cro que ele volta a funcionar tranquila- 
mente. 

Isto acontece porque o POKE pas- 
seia pelo arquivo de imagens e vai aca- 
bar no STACK, o que certamente con- 
funde o micro. £ apenas uma das inu- 
meras coisas que podem acontecer em 
caso de memdria lotada, mas nenhu- 
ma delas provocara* se>ios danos ao seu 
equipamento. 
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A geracao def in Itiva 6 sempre a proxima 




SCARFMAN 



Voce s6 descobre o quanto precisa de urn Micro-Corn 
putador JR da Sysdata depois que o conhece de perto. 

Vocfi vai ter certeza de que fez um Otimo negocio ao 
adquirf-lo assim que o colocar na sua empresa ou na sua 
casa. 

JR da Sysdata e rapido, e versatil, e compacto. 
APLICAQOES: 

Contabilidade, controle de contas a pagar, controle de 
contas a receber, folha de pagamento, controle de esto- 
que, controle de clientes, relatOrio de clientes, mala direta, 
calculos de orpamentos f inanceiros,controle de processos 
industrial's, calculos de engenharia, calculos de estatisti- 
cas, funcoes matematicas, fungoes logicas em cadeia de 
caracteres (STRINGS), graficos, jogos animados, progra- 
mas educacionais. 
O JR PERMITE AINDA: 

acesso a grandes sistemas de computacao, a comuni- 
capao entre os departamentos de Empresa, efetuar pro- 
gramas especificos para cada Empresa. 

E, como se naobastasse, ele e o Micro-Computadorde 
menor prepo do mercado 

Com todas as qualidades que tern, o JR da Sysdata nem 
precisava ser tao econdmico. Mas e. 

Afinal, ele e o mais completo Micro-Computador de sua 
geracao. 

Inclusive no preco. 

Voc6 pode testar estas e outras qualidades do JR em 
qualquer dos nossos revendedores. 



Mil iQcomputadvpMnel 




&wmw n CEP 01155 . TEL: 6Z5900 



REVENDEDORES: SAO PAULO/Capitsl Ad Data 864.8200; ADP System 227.6100; Bucker 881.7995; Cinot.ca 36 6961 ; Compumarketing 212.9004 Compute 852 8533 Com 
Duterland 231 3277; Foto Leo 35.7131; Fototica 853 0448; Guedes 289.9051; Horst 203 5597; Interface 852.5603; Lema 210 5929 M.crorei 881 0022 Mipr'otec 289 4941 Nova Gera 
cao 814.3663; OP A 35.8685; Plandata 275.0181; Plantel 543.9653; Sacco 814.0598; Servimec 222.1511; Sistenac 282 6609; SOS. 66.7656 Runners 469 0887 Campinas 
Computer House 852.5855; Computique 32.6322; Microtok 32 4445; Rio Claro Coml. Micro Cosmos 34.5801; Ribeirao Prato Com D usys 635.1195 Araras Copec 41 3779 
I^T^r.-^"^ ^ 252 Mo9 ' Gua ? u Guacumaq 261 .0236; Braganca PauMsta Infordata 543.5198; Bauru; Marilia Sipro 33 4109. Catanduva Teledalto 22.81 19 RIO 
DE JANEIRO/Capital Clap 228 0734; Comput.que 267.1093; G D M Informatica 284.8744; JR de Goes 246.4180; Kristian 391 3165; Suprimento 274 8845 Petrbpoii* Foto On 
ca 42 1391 MINAS GERAIS/Belo Horuonta Compucity 226.6336; Computec 225.2617; Kemitron 225.0644; Minas D.gital 337.7946; Poco« de Caldas Computique 721 5810 
RJO GRANDE DO SUL/Porto Alegre Advancing 26.1194; Aplitec 24.0465; Digital 24.1411, Microsis 22.9782; Pelotas Sistematika 22.3810; Novo Hamburgo Micromeqa 
93 4721 PARANA /Cuntiba Comput.que 243.1731; Micro System 232.3533; Morgen 232.0593; Ponta Grossa Grupo Data Memory 24.6191 Londrina Shop Computer 
23 9674. GOIAS/Goiania Casa do Microcomputador 223 1 165; Grupom 225 8226; SANTA CATARIIMA Florianopolis Castro 22.6933- Infotec 23 4777 BRASILIA Distrito 
Federal Compushow 273.2128; Digitec 225 4534. MATO GROSSO DO SUL Campo Grande DRL 382 6487; Video 321 4220 CEARA/Fortaleza ' Siscomov 244 4691 
PARAIBA JoaoPessoa Medusa 221 6743 PERNAMBUCO/Recife Elogica24i 1388 



Os micros da linha Sinclair estao saindo em campo para 
calcular glebas e terrenes com maior precisao 



Calculo da area 



de glebas 



Laci Mota Alves 



Face ao vasto emprego da formula de Herao na resolu- 
cao de muitos problemas de topografia, e devado a 
acessibihdadc do microcomputador nos dias atuais, 6 
que se procurou elaborar esse piograma, em BASIC, 
refercnte ao assunto. Atraves dele, sera" possivel calcular a area 
de urn triangulo qualquer, dados seus tres lados, a area de uma 
gleba e ainda a area de desenho c/ou de terreno. 

£ muito com urn no meio rural a necessidade de se medi- 
rem glebas que foram aradas, gradeadas, sulcadas, plantadas, 
rocadas ou que receberam qualquer outro tipo de mecaniza- 
ca"o agn'cola. Como tais medidas dcstinam-se geralmente a 
efetuar o pagamento de servicos prcstados, nao requerem a ela- 
boracSo de plantas e nem compensam, econorrucamente, a 
utilizacao de certos instrumentos. Sa"o mensuracoes cfetuadas 
com trcna e balizas, dividindo-se a gleba em triangulos e to- 
mando-se as jJimensoes de seus lados. Nesse caso, a area de 
cada triangulo pode ser facilmente calculada pela formula de 
Herao em que. sendo S = area, p = semipen'metro.a,b,c = la- 
dos do triangulo, 1/2 = expoente, temos: 



S=(p(p-a) (p-b) (p-c) ) 



1/2 



Muitas vezes sohcita-sc, no meio urbano, desenho e area de 
lotes bastante irrcgulares. Aphcando-se o mesmo processo de 
medicao, mas com maior ngorosidade, conscguem-se resulta- 
dos plenamente satisfatonos. 

Vcjamos. entao, como utilizar o piograma. 

Apos digita-lo no seu micro, pressione a tccla RUN. A se- 
guir, forneca o mimero de triangulos de sua gleba. solicitado 
pelo progiama, bem como o denominador da escala ou zero, se 
ela nao existir. A partn dai', atenda as dcmais solicitacocs do 
programa, de acordo com os dados que voce ja intioduziu. 
Para calculo de outra gleba. pressione novamente a tecla RUN. 



Laci Mota Alves 6 engenhciro florestal formado em 1973 pela Universi- 
dade Federal de Vicosa - MG. E pds-graduado em Cie~ncia Florestal e 
leciona atualmente Topografia e Fotogrametria na Escola Superior de 
Agronomia de Paraguacu Paulista - ESAPP. Aldm disso. presta servi- 
cos autdnomos de Topografia. Conservacao do Solo e outros de Enge- 
nharia Florestal desde 1975. 



















Herdo 






10 


REM "HERAO" 








20 


DIM L(3) 






30 


LET S = 


=0 






40 


PRINT 


"DIGITE O NUMERO DE 


T 


RIANGULOS DESUA AREA" 






50 


INPUT 


N 






60 


CLS 








70 


PRINT 


"DIGITE DENOMINADOR 


E 


SCALA OU "' 


0""SE NAO EXISTE" 




71 


INPUT 


D 






72 


CLS 








80 


FOR J= 


= 1 TO N 






90 


PRINT 


"DIGITE OS 


LADOS DO 


T 


RIANGULO " ; 


J 






110 


FOR 1 = 


=1 TO 3 






120 


INPUT 


L(I) 






130 


PRINT 


"L(";I;")=" 


;L(I) 




140 


NEXT I 






150 


LET P= 


= (L(l)+L(2)+L(3))/2 




160 


LET SP=SQR (P*(P- 


L(1))*(P- 


-L 


(2)) 


k (P-L(3))) 






170 


PRINT 


"AREA=";SP 






180 


IF D>0 THEN PRINT 


"AREA TER 


RENO= 


= " ;SP*D*D 






181 


PRINT 








190 


LET S= 


=S+SP 






200 


NEXT J 






210 


PRINT 








220 


PRINT 


"AREA TOTAL 


= ";S 




230 


IF D>0 THEN PRINT 


"AREA TOT 


. TERREI 


;S*D*D 




■ 










.« 
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GARANTA 

SUA MS 

TODO AAES ! 



Se voce deseja assinar MICRO SISTEMAS, preencha o 
cupom abaixo (ou uma xerox, caso voce nao queira 
cortar a revista): 



empresa. 



profissao/cargo. 



endereco para remessa 

cidade cep. 



, estado. 



Assinatura anual 

D Micro Sistemas Cr$ 15.000.00 

□ Informatica & Administracao Cr$ 10.000,00 

D Micro Sistemas+lnform^tica &Administracao. Cr$ 22.000,0 



Preencha urn cheque nominal a ATI Editora Ltda e envie 

para: 

Rua Visconde Silva, 25 - Rio de Janeiro - RJ - CEP 

22281 - tel. (021 ) 286-1 797. 246-3839 e 266-0339. 

Al. Gabriel Monteiro da Silva, 1227 - Sao Paulo - SP - 

CEP 01441 - tel : (01 1 ) 853-3800. 

Seu recibo sera enviado pelo correio. 



VOCEQUERSER 

COLABORADOR 

DE MICRO SISTEMAS? 



Para entrar nesse programa, e 
so seguir as instrucoes: 

• Escreva um texto datilogra- 
fado explicando qual a utiliza- 
cao do seu programa, e junte 
exemplos de aplicacao. Aten- 
cSo: i imprescindfvel que a lis- 
tagem seja datilografada. Se 
for possi'vel mande tamWm, 
junto com a listagem datilo- 
grafada, uma fita cassete ou 
disquete com o programa; 

• Se for artigo, use a maqui- 
na de escrever em espaco dois 
e meio, com setenta toques 
por linha e trinta linhas por fo- 
Iha. Caso haja necessidade de 
desenhos e ilustracoes, deta- 
Ihe-os o rndximo possfvel; 

• Releia atentamente sua 
colaboracao para micros ou 
calculadora, veja se n3o falta 
nenhuma informacio (qual 
equipamento, em que configu- 
raca"o etc.), e remeta-a, em 
duas vias, para a equipe de 
MICRO SISTEMAS analisar; 

• Nao se esqueca de mandar 
um breve curriculo, seu nome, 
telefone e endereco completo. 




Envie para REDAQAO - 
MICRO SISTEMAS, Rio ou 
Sa"o Paulo: Rua Visconde Sil- 
va, 25, Botafogo, CEP 22281. 
Rio de Janeiro - RJ; Alame- 
da Gabriel Monteiro da Silva, 
1227, Jardim Paulistano. CEP 
01441, S3o Paulo - SP. 

_, TMicro 

Sistemas 



VOL TEAS A ULAS COM MS.' 

Em margo, uma ed/'gao especial sobre Educaqao com varios 
programas para voce aprender coisas novas e praticar velhos 
conhecimentos! 



.RAIZQUADRADA .HISTOGRAMA 
.ANIMALS, O INGLES DO MICRO 
. TUTOR MA TEMATICO 
.APRENDENDO FRAQOES 



e outros tantos 
especialmente 
escritos para 
oseu micro. 

Aqui vai 
tambem uma 
palinha sobre os 
artigos: 



"A inicializagao 
do monitor 
do CP-500" e a 
segunda parte do 
artigo do prof. 
Antonio Costa, 
"Inteligencia 
Artificial", 



apresentando um 
jogo inteligente 
para a linha 
TRS-80. 



_ . TMicro 

Sistemas 
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SOFTWARE 

500 PROGRAMAS DISPONiVEIS 

- Spetaculator (Visicalc) 

- Telewriter 64 (Processador de textos) 

- Medico Leao 
(Controle de consultas e coniabilidade 
simultaneamente) 

- Orcamento (Ideal para Engenheirosl 

- Envelope de pagamento 
(Catcula e imprime o envelope padr§o) 

- Contas a Pagar/Receber 

- Controle de Estogue 
lAcesso clireto sobre cada item) 

- Topografia (Calculo poligonal) 

- Llnguagem LOGO (para criancasl 

- Composer (Transforma o CODIMEX - 6809 
numa verdadeira orquestra). 

- Flex 

- Dinacalc 

- Dinastar 

- Super Procolor File 

200 JOGOS. ENTRE ELES ZAXXON (TRIDIMENSIONAL) 
TRAP. KING. DONKEY. BOLICHE.CONBELT. GOBBLER 
CORRIDA DE CAVALOS. SPACE ASSAULT... 

PERIFERICOS 

computador CODIMEX 6809 possui duas entradas analogicas. portas 
para RS 232 e gravador cassete. saida de video; saida de expansao. As 
entradas analogicas permitem a hgacdo direta de um par de "joysticks", 
que facilitam a mtroducao de dados graficos e cnam maior flexibilidade 
em logos Essas entradas podem ser usadas igualmente como converso- 
res analbgico digitals A porta RS 232 torna possivel a conexao da im- 
pressora ou modem. Os programas e dados sao armazenados em fita 
cassete comum por intermedio da saida /gravador. O sinal de video e 
compativel com qualquer TV colorida ou PErB atraves da antena. A uni- 
dade de disco permite acesso rapido a arquivos e programas, tornando a 
memdria do computador virtualmente infinite 



e— 



Utilizando a mais moderna tecnologia existente no momento. a Codimex criou e 
esta produzindo um computador pnvilegiado Trata-se do CODIMEX 6809, compativel 
com o TRS 80 Color Computer, que gera ate 9 cores, possui recursos sonoros e opera 
com unidade de disco flexivel (5 1 4 I ou cassete 

6809 e extremamente versatil em aplicacoes graficas. capacitado a operar em alta 
ou baixa resolucao e incorpora uma sene de instrucoes inexistentes em outros 
computadores. 

CODIMEX 6809 - va conhece-lo nos principals revendedores 



XADREZ. 
PACMAN). 






CODIMEX I 

computadores 

Importacao. Exportagao e Industrie de Computadores Ltda. 
Av. Wenceslau Escobar, 1549 - Vila Assuncflo - 
Telefone (0512) 498446 CEP 90.000 - Porto Alegre (RS) 



NOVO CP 300 PROLOGICA. 



Opequeno 
grande micro. 

Agora, na hora de escolher entre urn 
microcomputador pessoal simples, de facil 
manejo e urn sofisticado microcomputador 
profissional, voce pode ficar com os dois. 
Porque chegou o novo CP 300 Prologica. 
novo CP 300 tern prego de 
microcomputador pequeno. Mas memoria 
de microcomputador grande. 

Ele ja nasceu com 64 ^ 
^1^^ kbytes de memoria 
g J£ ^ sterna com 

i^%^ ,^r ' possibilidade de 




Compattvel com 

programas em lita 
cassete ou em disco. 



Pode ser 
acoplado a uma 
impressora. 





Pode ser ligado ao seu aparelho de TV, da 
mesma forma que no terminal de video 
de uma grande empresa. 
Com o CP 300 voce pode 
tazer conexoes telefonicas 
para coleta de dados 
se utilizar 
de uma 
impressora 

e ainda dispor de todos 
os programas existentes 
para o CP 500 ou o 




Permite 



Pode ser ligado 
a urn televisor comum 
ou a urn sofisticado 
terminal de video. 



ria externa para ate 
quase 1 megabyte. 
E tern urn teclado profissional, 
que da ao CP 300 uma versatilidade incrfvel. 
Ele pode ser utilizado com programas de 
fita cassete, da mesma maneira que com 
programas em disco. 



MM 



unico na sua faixa que ja 
nasce com 64 kbytes de memoria. 



expansao de memo- ^IS*. TRS-80 americano, E o que e melhor: 



voce estara apto a operar qualquer 
outro sistema de microcomputador. 

Nenhum outro microcomputador pessoal 
na sua faixa tern tantas possibilidades de 
expansao ou desempenho igual. 

CP 300 Prologica. 

Os outros nao fl|B pRQLOGICA 
fazem o que ele faz, j b r™crocomputadofes 
pelo prego que 
ele cobra. 



r£ servao £meroU) o 



Aw Eng ; U:sCaMOiBernn 1168 SP 
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Manaus - 234-1045 
•BA-Saivador - 247-8951 
•CE-Fortaieza - 226-0871 - 244-2448 
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Sorocaoa - 33-7794 • SC-Biumeruu - 22-6277 - Chapeco - 22-0001 - Criciuma - 33-2604 - Fionanopohs - 22-9622 - Jomvile • 33-7520 • SE-Aracaiu - 224-1310 



Solicite 
demonstracao 
nos principals 
magazines. 
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tern a 
iniciacSoem 
mhrocomputagdo 
queexiste. 

O TK 83 jd ensinou mois de 2 milhdes de pessoos. 

Ele 6 multo fdcil de operar. Usa o Basic, e a memdria chega 
old 64 K byies, e aceita monitor, impressora e joystick 

Num instante voce vai estar resolvendo problemas 
programando, ou vencendo os muitos jogos disponiveis. O 
TK 83 nao e so a melhor iniciacao. Tambem d o mois divertida 



ui voceja a plica 
seus conhecimentos 

Com o TK 85 voce tambem pode se divertir muito: ele 
_m dezenas de jogos disponiveis. 
Mas ele jo d mois sofisticado. Tern software j6 pronto 
\guagens Basic e Assembler, Teclado tipo mdquina de 
rever, com 40 teclas e 160 funcoes. !6ou48Kde 
\mdria RAM, elOde ROM. Gravacao em high-speed, 
uncdo Verify, para maior seguranca. 
Quando voce jd estiver apaixonado por 
microcomputacao. ele vai corresponder totalmente 
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TK200a 
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Aqui voce* mostra 
tudo o que sabe. 

O TK 2000 Color tern tudo que os 
melhores micros tdm. Menos o preco. 
Aceita diskette, impressora (jd vem com 
interface), alta resolucao grafica d cores 
sndo ser ligado oo seu TV colorido 
. - &B. Tern 64 k de memdria RAM e 
16 k de memdria ROM Com excelente 
software disponivel 

Vocd poae mos trar tudo o que sabe. 
Sem precisar mostrar muito dinheiro. 
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